all tasks

Task/Sorting-algorithms-Merge-sort/Lucid/sorting-algorithms-merge-sort.lucid

@@ -0,0 +1,17 @@
+msort(a) = if iseod(first next a) then a else merge(msort(b0),msort(b1)) fi
+  where
+   p = false fby not p;
+   b0 = a whenever p;
+   b1 = a whenever not p;
+   just(a) = ja
+      where
+         ja = a fby if iseod ja then eod else next a fi;
+      end;
+   merge(x,y) = if takexx then xx else yy fi
+     where
+      xx = (x) upon takexx;
+      yy = (y) upon not takexx;
+      takexx = if iseod(yy) then true elseif
+                  iseod(xx) then false else xx <= yy fi;
+     end;
+  end;