Dan Groshev si14

London

Recently created

Least recently created

Recently updated

Least recently updated

si14 / tmp.erl

Created November 13, 2013 12:44

	-module(tmp).

	-behaviour(gen_server).

	%% API
	-export([start_link/0]).

	%% gen_server callbacks
	-export([init/1, handle_call/3, handle_cast/2, handle_info/2,
	terminate/2, code_change/3]).

si14 / gist:7412350

Created November 11, 2013 12:16

	-module(foobar_tests).
	-include_lib("proper/include/proper.hrl").
	-include_lib("eunit/include/eunit.hrl").

	prop_delete() ->
	?FORALL({X,L}, {integer(),list(integer())},
	not lists:member(X, lists:delete(X, L))).

	proper_test() ->
	?assertEqual(

si14 / selfcleanup.clj

Last active December 25, 2015 19:59

	(defrecord GHCache [^TTLCache ttl-cache etagged cleaner-c])

	(defn init-cache []
	(let [control-c (chan)
	old-killer (fn [etagged]
	(let [now (System/currentTimeMillis)]
	(->> etagged
	(filter #(> (- now (-> % value :created-at))
	(* 6 60 60 1000)))
	(into {}))))

si14 / flowdock.sh

Created September 28, 2013 14:58

curl -XPOST -d "source=`git config user.name`&from_address=`git config user.email`&subject=pushed to production&content=`git log --pretty=format:'%s %H' -n 1`" https://api.flowdock.com/v1/messages/team_inbox/YOUR_TOKEN_GOES_HERE

si14 / code.clj

Created September 23, 2013 20:38

	(defn gaussian [m mu gamma]
	(let [m (mp/clone m)
	t (/ 1 (* gamma (Math/sqrt (* 2 Math/PI))))]
	(magic/specialize :double
	(loop-over [m]
	(let [x (aget m-data m-idx)
	exparg (* -0.5 (Math/pow (/ (- x mu) gamma) 2))
	g (* t (Math/exp exparg))]
	(aset m-data m-idx g))))))

si14 / tags_types.clj

Last active December 23, 2015 12:59

	(defn tags-types [form]
	(clojure.walk/prewalk
	(fn [form]
	(when-let [m (meta form)]
	(when-let [t (:tag m)]
	(prn m t (type t))))
	form)
	form))

	;; enable printing of meta in repl with (set! print-meta true)

si14 / typehints.clj

Created September 20, 2013 14:39

	(def test-form1
	'(let [^String a "a"]
	:ok))

	(def test-form2
	`(let [^String ~'a "a"]
	:ok))

	(def test-form3
	`(let [^String a# "a"]

si14 / examples.md

Last active December 20, 2015 12:29

NDArray examples

An obvious stuff:

> (identity-matrix :ndarray 3)
#<NDArray [[1.0 0.0 0.0] [0.0 1.0 0.0] [0.0 0.0 1.0]]>
> (identity-matrix :ndarray-long 3)
#<NDArrayLong [[1 0 0] [0 1 0] [0 0 1]]>
> (identity-matrix :ndarray-double 3)

si14 / perf.txt

Created July 31, 2013 23:06

	vectorz:
	n=5: : 266.523286 ns
	n=50: : 156.841570 µs
	n=500: : 281.972092 ms
	n=1000: : 8.218981 sec
	persistent vectors:
	n=5: : 69.954376 µs
	n=50: : 34.461107 ms
	ndarray:
	n=5: : 15.065835 µs

si14 / gist:6127016

Created July 31, 2013 23:06

	vectorz:
	n=5: : 266.523286 ns
	n=50: : 156.841570 µs
	n=500: : 281.972092 ms
	n=1000: : 8.218981 sec
	persistent vectors:
	n=5: : 69.954376 µs
	n=50: : 34.461107 ms
	ndarray:
	n=5: : 15.065835 µs

Newer Older