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-Radix-sort/Arturo/sorting-algorithms-radix-sort.arturo
+++ b/Task/Sorting-algorithms-Radix-sort/Arturo/sorting-algorithms-radix-sort.arturo
@ -0,0 +1,19 @@
+radixSort: function [items][
+    base: 10
+    a: new items
+
+    rounds: inc floor (ln max a)/ln base
+    loop rounds 'i [
+        buckets: array.of: 2*base []
+        baseI: base ^ i
+        loop a 'n [
+            digit: last digits n
+            if n >= 0 -> digit: digit + base
+            buckets\[digit]: buckets\[digit] ++ n
+        ]
+        a: new flatten buckets
+    ]
+    return a
+]
+
+print radixSort [3 1 2 8 5 7 9 4 6]