blob: b97ef082a0b59858ceaf4095882fb17bd63320b0 (
about) (
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.
|
