From: Elijah Cohen <eli@eli173.com>
Date: Fri, 27 Dec 2024 04:40:01 +0000 (-0800)
Subject: qsort
X-Git-Tag: v-12.13.13~3
X-Git-Url: https://git.eli173.com/?a=commitdiff_plain;h=2dc7c2ad7c88e253cb2d479e12f3bca79564e8bd;p=klapaucius

qsort
---

diff --git a/demos.kl b/demos.kl
index 5835897..038dbcf 100644
--- 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))))))))
+