Initial data commit

Task/Sorting-algorithms-Shell-sort/M2000-Interpreter/sorting-algorithms-shell-sort.m2000

@@ -0,0 +1,25 @@
+Module ShellSortExample {
+      Module shellsort(&a()) {
+            DEf h%, i%, j%, k, n%
+            n%=LEN(a())
+            h% = n%
+            WHILE h% {
+                    IF h% = 2  THEN {h% = 1 }ELSE h%= h% DIV 2.2
+                    FOR i% = h% TO n% - 1
+                      k = a(i%)
+                      j% = i%
+                      WHILE j% >= h% AND k < a(ABS(j% - h%)) {
+                              a(j%) = a(j% - h%)
+                              j% -= h%
+                        }
+                      a(j%) = k
+                    NEXT i%
+            }
+      }
+
+      Dim numbers(10)
+      numbers(0)=4, 65, 2, -31, 0, 99, 2, 83, 782, 1
+      shellsort &numbers()
+      Print numbers()
+}
+ShellSortExample