Data commit

Task/Sorting-algorithms-Shell-sort/BBC-BASIC/sorting-algorithms-shell-sort.basic

@@ -0,0 +1,25 @@
+      DIM test(9)
+      test() = 4, 65, 2, -31, 0, 99, 2, 83, 782, 1
+      PROCshellsort(test(), 10)
+      FOR i% = 0 TO 9
+        PRINT test(i%) ;
+      NEXT
+      PRINT
+      END
+
+      DEF PROCshellsort(a(), n%)
+      LOCAL h%, i%, j%, k
+      h% = n%
+      WHILE h%
+        IF h% = 2 h% = 1 ELSE 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%
+          ENDWHILE
+          a(j%) = k
+        NEXT
+      ENDWHILE
+      ENDPROC