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/BASIC/sorting-algorithms-gnome-sort.basic
+++ b/Task/Sorting-algorithms-Gnome-sort/BASIC/sorting-algorithms-gnome-sort.basic
@ -0,0 +1,19 @@
+dim a(0 to n-1) as integer
+'...more code...
+sort:
+i = 1
+j = 2
+
+while(i < ubound(a) - lbound(a))
+  if a(i-1) <= a(i) then
+    i = j
+    j = j + 1
+  else
+    swap a(i-1), a(i)
+    i = i - 1
+    if i = 0 then
+       i = j
+       j = j + 1
+    end if
+  end if
+wend