all tasks

Task/Sorting-algorithms-Insertion-sort/Seed7/sorting-algorithms-insertion-sort.seed7

@@ -0,0 +1,16 @@
+const proc: insertionSort (inout array elemType: arr) is func
+  local
+    var integer: i is 0;
+    var integer: j is 0;
+    var elemType: help is elemType.value;
+  begin
+    for i range 2 to length(arr) do
+      j := i;
+      help := arr[i];
+      while j > 1 and arr[pred(j)] > help do
+        arr[j] := arr[pred(j)];
+        decr(j);
+      end while;
+      arr[j] := help;
+    end for;
+  end func;