all tasks

Task/Sorting-algorithms-Bubble-sort/Lucid/sorting-algorithms-bubble-sort.lucid

@@ -0,0 +1,16 @@
+bsort(a) = if iseod(first a) then a else
+              follow(bsort(allbutlast(b)),last(b)) fi
+  where
+   b = bubble(a);
+   bubble(a) = smaller(max, next a)
+       where
+        max = first a fby larger(max, next a);
+        larger(x,y) = if iseod(y) then y elseif x
+       end;
+   follow(x,y) = if xdone then y upon xdone else x fi
+                   where
+                      xdone = iseod x fby xdone or iseod x;
+                   end;
+   last(x) = (x asa iseod next x) fby eod;
+   allbutlast(x) = if not iseod(next x) then x else eod fi;
+  end