all tasks

Task/Sorting-algorithms-Bubble-sort/Seed7/sorting-algorithms-bubble-sort.seed7

@@ -0,0 +1,18 @@
+const proc: bubbleSort (inout array elemType: arr) is func
+  local
+    var boolean: swapped is FALSE;
+    var integer: i is 0;
+    var elemType: help is elemType.value;
+  begin
+    repeat
+      swapped := FALSE;
+      for i range 1 to length(arr) - 1 do
+        if arr[i] > arr[i + 1] then
+          help := arr[i];
+          arr[i] := arr[i + 1];
+          arr[i + 1] := help;
+          swapped := TRUE;
+        end if;
+      end for;
+    until not swapped;
+  end func;