qsort

diff --git a/demos.kl b/demos.kl
index 58358975036d2b0659f4cd2c84bdb828d424f6fc..038dbcff73b5db7eb731db456f6fa71554979a7e 100644 (file)
--- a/demos.kl
+++ b/demos.kl
@@ -65,3 +65,5 @@
 
 (def filter (C (C (B (abstract-rec not) (B W (B (B C) (C (B C (B (B B) (C (B B S) (C cons)))) car)))) cdr) nil))
 
+(def qsort ((B Z (B (B (S (W atom))) (Phi (Phi (Phi append)) (B (C B) (C (B (Phi filter) (B (B (B not)) (C B car))) cdr)) (B (B (Phi cons car)) (B (C B) (C (B (Phi filter) (C B car)) cdr))))))))
+