Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 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,16 @@
+(defn transpose [xs]
+  (loop [ret [], remain xs]
+    (if (empty? remain)
+      ret
+      (recur (conj ret (map first remain))
+             (filter not-empty (map rest remain))))))
+
+(defn bead-sort [xs]
+  (->> xs
+       (map #(repeat % 1))
+       transpose
+       transpose
+       (map #(reduce + %))))
+
+;; This algorithm does not work if collection has zero
+(-> [5 2 4 1 3 3 9] bead-sort println)