From 2dc7c2ad7c88e253cb2d479e12f3bca79564e8bd Mon Sep 17 00:00:00 2001
From: Elijah Cohen <eli@eli173.com>
Date: Thu, 26 Dec 2024 20:40:01 -0800
Subject: [PATCH] qsort

---
 demos.kl | 2 ++
 1 file changed, 2 insertions(+)

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))))))))
+
-- 
2.39.2