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-Cocktail-sort/BBC-BASIC/sorting-algorithms-cocktail-sort.basic
+++ b/Task/Sorting-algorithms-Cocktail-sort/BBC-BASIC/sorting-algorithms-cocktail-sort.basic
@ -0,0 +1,19 @@
+DEF PROC_ShakerSort(Size%)
+
+Start%=2
+End%=Size%
+Direction%=1
+LastChange%=1
+REPEAT
+  FOR J% = Start% TO End% STEP Direction%
+    IF data%(J%-1) > data%(J%) THEN
+       SWAP data%(J%-1),data%(J%)
+       LastChange% = J%
+    ENDIF
+  NEXT J%
+  End% = Start%
+  Start% = LastChange% - Direction%
+  Direction% = Direction% * -1
+UNTIL ( ( End% * Direction% ) < ( Start% * Direction% ) )
+
+ENDPROC