From 558c896a0c50f2b8ad4eb97c9bda7cd2a4f105af Mon Sep 17 00:00:00 2001 From: Elijah Cohen Date: Fri, 20 Dec 2024 17:33:33 -0600 Subject: [PATCH] filter of a sort added --- demos.kl | 2 ++ 1 file changed, 2 insertions(+) diff --git a/demos.kl b/demos.kl index 54535cb..5835897 100644 --- a/demos.kl +++ b/demos.kl @@ -63,3 +63,5 @@ (def append (B (C (abstract-rec not (B (C B car) (C cons)) cdr)) reverse)) +(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)) + -- 2.39.2