Add tasks for all the new languages

2016-12-05 23:44:36 +01:00 · 2016-12-05 23:44:36 +01:00 · bba7bfd280
commit bba7bfd280
parent 9dc3c2bb62
13208 changed files with 134745 additions and 0 deletions
--- a/Task/Sorting-algorithms-Shell-sort/Ring/sorting-algorithms-shell-sort.ring
+++ b/Task/Sorting-algorithms-Shell-sort/Ring/sorting-algorithms-shell-sort.ring
@ -0,0 +1,21 @@
+aList = [-12, 3, 0, 4, 7, 4, 8, -5, 9]
+shellSort(aList)
+for i=1 to len(aList)
+    see "" + aList[i] + " "
+next
+
+func shellSort a
+     inc = ceil( len(a) / 2 )
+     while inc > 0
+           for i = inc to len(a)
+               tmp = a[i]
+               j = i
+               while j > inc and a[j-inc] > tmp
+                     a[j] = a[j-inc]
+                     j = j - inc
+               end
+               a[j] = tmp
+           next
+           inc = floor( 0.5 + inc / 2.2 )
+     end
+     return a