all tasks

2013-04-11 01:07:29 -07:00 · 2013-04-11 01:07:29 -07:00 · 68f8f3e56b
commit 68f8f3e56b
parent b83f433714
14735 changed files with 178959 additions and 0 deletions
--- a/Task/Sorting-algorithms-Cocktail-sort/BBC-BASIC/sorting-algorithms-cocktail-sort.bbc
+++ b/Task/Sorting-algorithms-Cocktail-sort/BBC-BASIC/sorting-algorithms-cocktail-sort.bbc
@ -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