all tasks

2013-04-11 01:07:29 -07:00 · 2013-04-11 01:07:29 -07:00 · 68f8f3e56b
commit 68f8f3e56b
parent b83f433714
14735 changed files with 178959 additions and 0 deletions
--- a/Task/Sorting-algorithms-Bead-sort/Clojure/sorting-algorithms-bead-sort.clj
+++ b/Task/Sorting-algorithms-Bead-sort/Clojure/sorting-algorithms-bead-sort.clj
@ -0,0 +1,14 @@
+(defn transpose [xs]
+  (loop [transposed [], remaining xs]
+    (if (empty? remaining)
+      transposed
+      (recur
+        (conj transposed (map #(first %) remaining))
+        (filter #(not-empty %) (map #(rest %) remaining)))) ))
+
+(defn bead-sort [xs]
+  (map #(reduce + %)
+    (transpose
+      (transpose (map #(replicate % 1) xs)))))
+
+(println (bead-sort [5 2 4 1 3 3 9]))