Adrian Medina aamedina

Lisp Hacker

aamedina / gist:8013488

Created December 17, 2013 22:10

	(defroutes targeting-criteria
	(context "/accounts/:account-id" [account-id]
	(GET "/targeting_criteria" [] "")
	(GET "/targeting_criteria/:id" [id] id)
	(POST "/targeting_criteria/:id" [id] id)
	(PUT "/targeting_criteria/:id" [id] id)
	(DELETE "/targeting_criteria/:id" [id] id)

	(GET "/targeting_criteria/tailored_audiences" [])

aamedina / gist:8114944

Last active January 1, 2016 07:59

	(defn handle-player-movement
	[key-handler]
	(let [coords (atom [0 0])]
	(.addEventListener key-handler goog.events.KEY
	(fn [e]
	(let [dir (case (.-keyCode e)
	KeyCodes.UP :up
	KeyCodes.DOWN :down
	KeyCodes.RIGHT :right
	KeyCodes.LEFT :left)]

aamedina / gist:8114949

Last active January 1, 2016 07:59

aamedina / gist:8115304

Last active January 1, 2016 07:59

aamedina / gist:8245740

Last active January 2, 2016 03:39

	(deftype ConcatVec [meta cnt cnt-a cnt-b a b ^:mutable __hash]
	ISequential
	Object
	(toString [coll]
	(pr-str* coll))

	IWithMeta
	(-with-meta [coll meta] (ConcatVec. meta cnt cnt-a cnt-b a b __hash))

	IMeta

aamedina / gist:10032440

Created April 7, 2014 19:09

	static NSString readToken (PushbackReader rdr) {
	NSMutableString *sb = [NSMutableString string];
	unichar ch = [rdr read];
	for (;;) {
	if (!ch \|\| isWhitespace(ch))
	return [NSString stringWithString:sb];
	[sb appendFormat:@"%C", ch];
	ch = [rdr read];
	}
	return nil;

aamedina / gist:10415713

Created April 10, 2014 19:40

	data JSValue = JSString String
	\| JSNumber Double
	\| JSBool Bool
	\| JSNull
	\| JSObject [(String, JSValue)]
	\| JSArray [JSValue]
	deriving (Eq, Ord, Show)

	getString :: JSValue -> Maybe String
	getString (JSString str) = Just str

aamedina / gist:867a97b8f2d34450c143

Created April 30, 2014 19:15

	(deftemplate index
	(io/resource "public/html/index.html")
	[]
	[[:script (enlive/attr= :src "../js/main.js")]]
	(enlive/before (enlive/html [:script {:src "../js/out/goog/base.js"}]))
	[:body]
	(enlive/append (enlive/html [:script "goog.require(\"ag_console.start\")"])))

aamedina / gist:cc392e6206dfef3094ce

Created May 1, 2014 14:09

	(defmethod native-size clojure.lang.BigInt
	"Determine the number of bits necessary to represent an integer of arbitrary precision."
	[n]
	(count (take-while pos? (iterate #(quot % 2) n))))

aamedina / gist:c1997412e423ea1393bf

Created May 5, 2014 18:56