Skip to content

Instantly share code, notes, and snippets.

View carcigenicate's full-sized avatar

carcigenicate

18 followers · 0 following
View GitHub Profile
@carcigenicate
carcigenicate / Function explanation
Last active June 30, 2017 19:23
// Create a function called "add"
function add(num1, num2) {
var result = num1 + num2
return result // <----- Returning from the function
}
var result = add(1, 2) // <----- Called the function. "result" holds a 3
var result2 = add(3, 4) // <----- Called the function again. "result2" holds a 7
@carcigenicate
carcigenicate / gist:5bfa5afbd21c5b65d3bd6284df0f1eb8
Last active August 4, 2017 20:01
Swedish Othello Debug
def datornsDrag(self,datorBricka,fåLegalaDrag,fåDatorBräde,görDittDrag,räknaPoäng):
möjligaDrag = self.fåLegalaDrag(self.bräde,datorBricka)
högstaPoäng = -1
for x, y in möjligaDrag:
datorBräde = self.fåDatorBräde(self.bräde)
print(self.bräde)
self.görDittDrag(datorBräde, datorBricka, x, y)
print(self.bräde)
print("Done test for" + str(x) + " " + str(y))
poäng = self.räknaPoäng(datorBräde)[datorBricka]
@carcigenicate
carcigenicate / gist:1ea6e5ea54aa1c4c5ea4cb0747a65715
Created August 5, 2017 16:55
<html>
<head>
<style>
img {
position: absolute;
}
div {
position: absolute;
width: 500px;
height: 500px;
@carcigenicate
carcigenicate / Seesaw example
Last active October 9, 2017 22:23
project.clj:
(defproject sample "0.1.0-SNAPSHOT"
:dependencies [[org.clojure/clojure "1.8.0"]
[seesaw "1.4.5"]]
Sample file:
(ns seesaw-sample
(:require [seesaw.core :as sc]))
@carcigenicate
carcigenicate / Merging example
Created November 26, 2017 14:36
I'd break this down step by step.
First, the keys of each map seem to be irrelevant, so we can get rid of them by `map`ping `vals` over your data (which I'll call `data`):
(map vals data)
(([{:ms "A", :s 1, :v 15}] [{:ms "A", :s 2, :v 18}] [{:ms "A", :s 4, :v 19}])
([{:ms "A", :s 1, :v2 5}] [{:ms "A", :s 2, :v2 8}] [{:ms "B", :s 4, :v2 9}]))
But that leaves some ugly nested lists. I removed them by using a 2D `map`:
@carcigenicate
carcigenicate / Where example
Last active December 9, 2017 18:53
; k for keyword, f for function
(defmacro where [[k f arg]]
`(fn [a#] ; Expand to a function
; that applies k to the map, then applies f to that result, and the passed arg
(~f (~k a#) ~arg)))
(filter (where [:id < 2])
[{:id 0} {:id 1} {:id 2} {:id 3} {:id 4} {:id 5}])
; Returns ({:id 0} {:id 1})
@carcigenicate
carcigenicate / Select example
Created December 9, 2017 18:53
(ns bits.sql-syntax)
(def test-db [{:id 1, :name "A"},
{:id 0, :name "B"},
{:id 3, :name "C"},
{:id 2, :name "D"},
{:id 4, :name "E"}])
(defn where [arg-vec]
(let [[k f comp-arg] arg-vec]
@carcigenicate
carcigenicate / Microsoft support scam code
Created December 17, 2017 23:06
<!-- Global site tag (gtag.js) - Google Analytics -->
<script async src="https://www.googletagmanager.com/gtag/js?id=UA-101748454-1"></script>
<script>
window.dataLayer = window.dataLayer || [];
function gtag(){dataLayer.push(arguments);}
gtag('js', new Date());
gtag('config', 'UA-101748454-1');
</script>
<html>
@carcigenicate
carcigenicate / Cool Swirl Data
Created December 17, 2017 23:27
[0.2773242138364778 0.2803242138364779 0.0067561307901907 0.0097561307901907]Date1.06523069184791E8[1.0 2.0 9.930610010001E12 40.0 5.0 6.0 7.0 8.0 9.0]
@carcigenicate
carcigenicate / gist:9b33a4d567378081c70e9ef7792452a6
Created May 19, 2018 15:24
(reduce (fn [sum n]
(println sum n)
(+ sum n))
0
[1 2 3 4 5])
; Prints
0 1
1 2
3 3