all tasks

2013-04-11 01:07:29 -07:00 · 2013-04-11 01:07:29 -07:00 · 68f8f3e56b
commit 68f8f3e56b
parent b83f433714
14735 changed files with 178959 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)