git mv src/content/* src/content/en/

1 files changed, 66 insertions, 0 deletions

diff --git a/src/content/en/pastebins/2021/06/08/reading-session-pt1.adoc b/src/content/en/pastebins/2021/06/08/reading-session-pt1.adoc
new file mode 100644
index 0000000..d9f1f91
--- /dev/null
+++ b/src/content/en/pastebins/2021/06/08/reading-session-pt1.adoc
@@ -0,0 +1,66 @@
+= Debit Reading Session - SICP solutions pt.1
+
+[source,scheme]
+----
+;; 1.41
+(define (double f)
+  (lambda (x)
+    (f (f x))))
+
+
+:;; 1.42
+(define (compose f g)
+  (lambda (x)
+    (f (g x))))
+
+
+;;; 1.43
+(define (repeated f n)
+  (if (= 1 n)
+    identity
+    (comp (repeated f (dec n)))))
+
+
+;;; 2.27
+(define (map-tree node-fn leaf-fn tree)
+  (cond
+   ((null? tree) tree)
+   ((not (pair? tree)) (leaf-fn tree))
+   (else
+    (node-fn
+     (cons (map-tree node-fn leaf-fn (car tree))
+           (map-tree node-fn leaf-fn (cdr tree)))))))
+
+(define (map-nodes f tree)
+  (map-tree f identity tree))
+
+(define (deep-reverse x)
+  (map-nodes reverse x))
+
+
+;;; 2.28
+(define (flatten tree)
+  (define (rec acc t)
+    (cond
+     ((null? t) acc)
+     ((not (pair? t)) (cons t acc))
+     (else
+      (rec (rec (cdr t) acc)
+           (car t)))))
+  (rec nil tree))
+
+
+;;; 2.30
+(define (square-tree tree)
+  (map-leaves square tree))
+
+
+;;; 2.31
+(define square-tree map-leaves) ; ha!
+
+
+;;; 2.32
+TODO
+----
+
+FYI: I just typed those in, I didn't yet test them yet.