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-Shell-sort/Arturo/sorting-algorithms-shell-sort.arturo
+++ b/Task/Sorting-algorithms-Shell-sort/Arturo/sorting-algorithms-shell-sort.arturo
@ -0,0 +1,21 @@
+shellSort: function [items][
+    a: new items
+    h: size a
+
+    while [h > 0][
+        h: h / 2
+        loop h..dec size a 'i [
+            k: a\[i]
+            j: i
+
+            while [and? [j >= h] [k < a\[j-h]]][
+                a\[j]: a\[j-h]
+                j: j - h
+            ]
+            a\[j]: k
+        ]
+    ]
+    return a
+]
+
+print shellSort [3 1 2 8 5 7 9 4 6]