tjennings
tjennings
/ gist:391750
Created
May 6, 2010 03:36
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (testing "describe syntax" | |
| (describe "single assertion" | |
| (= (+ 1 1) 2)) | |
| (context "many assertions" | |
| (describe "plus" | |
| (= (+ 1 1) 2) | |
| "minus" | |
| (= (- 2 1) 1) | |
| "divide" |
tjennings
/ gist:391759
Created
May 6, 2010 03:43
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| {:type :context, | |
| :doc describe syntax, | |
| :tests ({:type :expects, | |
| :doc single assertion, | |
| :tests ({:type :expect, | |
| :expectations [(fn [] (= (+ 1 1) 2))]})})} |
tjennings
/ gist:905072
Created
April 6, 2011 03:24
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (ns bktree) | |
| (defn root [distance-fn] {:distance-fn distance-fn :children {}}) | |
| (defn new-node [term] {:term term :children {}}) | |
| (defn insert | |
| ([element node] | |
| (insert element node (:distance-fn node))) | |
| ([element node distance-fn] |
tjennings
/ gist:905074
Created
April 6, 2011 03:24
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (ns bktree) | |
| (defn root [distance-fn] {:distance-fn distance-fn :children {}}) | |
| (defn new-node [term] {:term term :children {}}) | |
| (defn insert | |
| ([element node] | |
| (insert element node (:distance-fn node))) | |
| ([element node distance-fn] |
tjennings
/ gist:905085
Created
April 6, 2011 03:32
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (ns bktree) | |
| (defn root [distance-fn] {:distance-fn distance-fn :children {}}) | |
| (defn new-node [term] {:term term :children {}}) | |
| (defn insert | |
| ([element node] | |
| (insert element node (:distance-fn node))) | |
| ([element node distance-fn] |
tjennings
/ gist:905737
Created
April 6, 2011 14:27
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (ns bktree) | |
| (defn root [distance-fn] {:distance-fn distance-fn :children {} :matches []}) | |
| (defn new-node [term] {:term term :children {} :matches []}) | |
| (defn insert | |
| ([element node] | |
| (insert element node (:distance-fn node))) | |
| ([element node distance-fn] |
tjennings
/ gist:905864
Created
April 6, 2011 15:34
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (ns bktree) | |
| (defn root [distance-fn] {:distance-fn distance-fn :children {} :matches []}) | |
| (defn new-node [term] {:term term :children {} :matches []}) | |
| (defn insert | |
| ([element node] | |
| (insert element node (:distance-fn node))) | |
| ([element node distance-fn] |
tjennings
/ gist:1123487
Created
August 3, 2011 18:58
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (ns fraud.detectors.bktree) | |
| (defn root [distance-fn] {:distance-fn distance-fn :children {} :matches []}) | |
| (defn new-node [term] {:term term :children {} :matches []}) | |
| (defn empty-node? [node] | |
| (= nil (:term node))) | |
| (defn insert |
tjennings
/ gist:1123488
Created
August 3, 2011 18:58
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (ns fraud.detectors.bktree) | |
| (defn root [distance-fn] {:distance-fn distance-fn :children {} :matches []}) | |
| (defn new-node [term] {:term term :children {} :matches []}) | |
| (defn empty-node? [node] | |
| (= nil (:term node))) | |
| (defn insert |
tjennings
/ gist:1511502
Created
December 22, 2011 19:23
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| def areUreturning | |
| 6%2 | |
| end |