aboutsummaryrefslogtreecommitdiff
path: root/_pastebins/2021-06-08-debit-reading-session-sicp-solutions-pt-1.md
blob: b97ef082a0b59858ceaf4095882fb17bd63320b0 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
---

title: Debit Reading Session - SICP solutions pt.1

date: 2021-06-08

layout: post

lang: en

ref: debit-reading-session-sicp-solutions-pt-1

---

```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.