Initial data commit

Task/Sorting-algorithms-Quicksort/Lucid/sorting-algorithms-quicksort.lucid

@@ -0,0 +1,10 @@
+qsort(a) = if eof(first a) then a else follow(qsort(b0),qsort(b1)) fi
+ where
+    p = first a < a;
+    b0 = a whenever p;
+    b1 = a whenever not p;
+    follow(x,y) = if xdone then y upon xdone else x fi
+                    where
+                       xdone = iseod x fby xdone or iseod x;
+                    end;
+ end