From 726c5ce4decbcd354aff50d1a486bca8c2fa33c1 Mon Sep 17 00:00:00 2001
From: Charles Cabergs <me@cacharle.xyz>
Date: Tue, 27 Jul 2021 11:37:47 +0200
Subject: problem 1 2 in scheme

---
 scheme/utils.scm | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 scheme/utils.scm

(limited to 'scheme/utils.scm')

diff --git a/scheme/utils.scm b/scheme/utils.scm
new file mode 100644
index 0000000..6ba98cd
--- /dev/null
+++ b/scheme/utils.scm
@@ -0,0 +1,22 @@
+(define fold
+  (lambda (f acc xs)
+    (if (null? xs)
+      acc
+      (fold f (f acc (car xs)) (cdr xs)))))
+
+(define sum
+  (lambda (xs) (fold + 0 xs)))
+
+(define range
+  (lambda (start stop step)
+    (if (>= start stop)
+      '()
+      (cons start (range (+ start step) stop step)))))
+
+(define filter
+  (lambda (predicate xs)
+    (if (null? xs)
+      '()
+      (let* ((x (car xs))
+             (filtered (filter predicate (cdr xs))))
+        (if (predicate x) (cons x filtered) filtered)))))
-- 
cgit