Skip to content

Instantly share code, notes, and snippets.

Keybase proof

I hereby claim:

  • I am abrenk on github.
  • I am abrenk (https://keybase.io/abrenk) on keybase.
  • I have a public key whose fingerprint is FC20 1D42 4A8A 9175 70FC 28F8 7743 2C30 FB23 930B

To claim this, I am signing this object:

(loop [curr 53
dir true
jobs #{98 183 37 122 14 124 65 67 199}
sum 0]
(let [f (condp = dir
false (partial < curr)
true (partial > curr))
s (condp = dir
false sort
true (comp reverse sort))
(loop [curr 53
jobs #{98 183 37 122 14 124 65 67 199}
sum 0]
(let [[sect dist] (first
(sort-by last
(partition 2
(interleave jobs
(map
#(Math/abs (- curr %))
jobs)))))]
@abrenk
abrenk / test.clj
Created September 29, 2010 15:57
(use ['clojure.test :only ['report 'run-tests 'with-report]])
(use ['clojure.test.junit :only ['junit-report]])
(use ['clojure.java.io :only ['file 'writer]])
(require 'com.example.ns1-test)
(require 'com.example.ns2-test)
(require 'com.example.ns3-test)
(.mkdirs (file "target/surefire-reports"))
(doseq [ns (filter #(.contains (str %) "-test") (all-ns))]