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-Insertion-sort/Oforth/sorting-algorithms-insertion-sort.oforth
+++ b/Task/Sorting-algorithms-Insertion-sort/Oforth/sorting-algorithms-insertion-sort.oforth
@ -0,0 +1,14 @@
+: insertionSort(a)
+| l i j v |
+   a asListBuffer ->l
+   2 l size for: i [
+      l at(i) ->v
+      i 1- ->j
+      while(j) [
+         l at(j) dup v <= ifTrue: [ drop break ]
+         j 1+ swap l put
+         j 1- ->j
+         ]
+      l put(j 1 +, v)
+      ]
+   l ;