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/Io/sorting-algorithms-shell-sort.io
+++ b/Task/Sorting-algorithms-Shell-sort/Io/sorting-algorithms-shell-sort.io
@ -0,0 +1,21 @@
+List do(
+    shellSortInPlace := method(
+        gap := (size / 2) round
+        while(gap > 0,
+            for(i, gap, size - 1,
+                key := at(i)
+                j := i
+
+                while(j >= gap and at(j - gap) > key,
+                    atPut(j, at(j - gap))
+                    j = j - gap
+                )
+                atPut(j, key)
+            )
+            gap = (gap / 2.2) round
+        )
+    self)
+)
+
+l := list(2, 3, 4, 5, 1)
+l shellSortInPlace println # ==> list(1, 2, 3, 4, 5)