Skip to content

Instantly share code, notes, and snippets.

View pieter-van-prooijen's full-sized avatar

Pieter van Prooijen pieter-van-prooijen

View GitHub Profile
@pieter-van-prooijen
pieter-van-prooijen / core.clj
Last active March 9, 2016 20:22 — forked from skuro/README.md
Lotsa advocaat
(def containers [50 44 11 49 42 46 18 32 26 40 21 7 18 43 10 47 36 24 22 40])
(defn distribute [volume containers filled]
(let [first-c (first containers)
left-over (- volume (or first-c 0))]
(println volume first-c filled)
(cond
(nil? first-c) nil