Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Sorting-algorithms-Bead-sort/Racket/sorting-algorithms-bead-sort.rkt
+++ b/Task/Sorting-algorithms-Bead-sort/Racket/sorting-algorithms-bead-sort.rkt
@ -0,0 +1,15 @@
+#lang racket
+(require rackunit)
+
+(define (columns lst)
+  (match (filter (λ (l) (not (empty? l))) lst)
+    ['() '()]
+    [l (cons (map car l) (columns (map cdr l)))]))
+
+(define (bead-sort lst)
+  (map length (columns (columns (map (λ (n) (make-list n 1)) lst)))))
+
+;; unit test
+(check-equal?
+ (bead-sort '(5 3 1 7 4 1 1))
+ '(7 5 4 3 1 1 1))