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-Comb-sort/BBC-BASIC/sorting-algorithms-comb-sort.basic
+++ b/Task/Sorting-algorithms-Comb-sort/BBC-BASIC/sorting-algorithms-comb-sort.basic
@ -0,0 +1,20 @@
+DEF PROC_CombSort11(Size%)
+
+gap%=Size%
+REPEAT
+  IF gap% > 1 THEN
+     gap%=gap% / 1.3
+     IF gap%=9 OR gap%=10 gap%=11
+  ENDIF
+  I% = 1
+  Finished%=TRUE
+  REPEAT
+    IF data%(I%) > data%(I%+gap%) THEN
+       SWAP data%(I%),data%(I%+gap%)
+       Finished% = FALSE
+    ENDIF
+    I%+=1
+  UNTIL I%+gap% > Size%
+UNTIL gap%=1 AND Finished%
+
+ENDPROC