all tasks

Task/Sorting-algorithms-Bubble-sort/Pop11/sorting-algorithms-bubble-sort.pop11

@@ -0,0 +1,19 @@
+define bubble_sort(v);
+lvars n=length(v), done=false, i;
+while not(done) do
+   true -> done;
+   n - 1 -> n;
+   for i from 1 to n do
+      if v(i) > v(i+1) then
+         false -> done;
+         ;;; Swap using multiple assignment
+         (v(i+1), v(i)) -> (v(i), v(i+1));
+      endif;
+   endfor;
+endwhile;
+enddefine;
+
+;;; Test it
+vars ar = { 10 8 6 4 2 1 3 5 7 9};
+bubble_sort(ar);
+ar =>