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-Counting-sort/BBC-BASIC/sorting-algorithms-counting-sort.basic
+++ b/Task/Sorting-algorithms-Counting-sort/BBC-BASIC/sorting-algorithms-counting-sort.basic
@ -0,0 +1,23 @@
+      DIM test%(9)
+      test%() = 4, 65, 2, -31, 0, 99, 2, 83, 782, 1
+      PROCcountingsort(test%(), -31, 782)
+      FOR i% = 0 TO 9
+        PRINT test%(i%) ;
+      NEXT
+      PRINT
+      END
+
+      DEF PROCcountingsort(a%(), l%, h%)
+      LOCAL i%, z%, c%()
+      DIM c%(h% - l%)
+      FOR i% = 0 TO DIM(a%(),1)
+        c%(a%(i%) - l%) += 1
+      NEXT
+      FOR i% = l% TO h%
+        WHILE c%(i% - l%)
+          a%(z%) = i%
+          z% += 1
+          c%(i% - l%) -= 1
+        ENDWHILE
+      NEXT
+      ENDPROC