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-Gnome-sort/BBC-BASIC/sorting-algorithms-gnome-sort.bbc
+++ b/Task/Sorting-algorithms-Gnome-sort/BBC-BASIC/sorting-algorithms-gnome-sort.bbc
@ -0,0 +1,17 @@
+DEF PROC_GnomeSort1(Size%)
+I%=2
+J%=2
+REPEAT
+  IF data%(J%-1) <=data%(J%) THEN
+    I%+=1
+    J%=I%
+  ELSE
+    SWAP data%(J%-1),data%(J%)
+    J%-=1
+    IF J%=1 THEN
+       I%+=1
+       J%=I%
+    ENDIF
+  ENDIF
+UNTIL I%>Size%
+ENDPROC