blob: ffb22fa669e16e5e1eb509784f34a8cceb5a752a (
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
|
;;;; License: CC0-1.0
(define-module (net ricketyspace sicp two thirty)
#:export (square-tree
square-tree-steroids))
(define (square-tree tree)
(cond ((null? tree) '())
((not (pair? tree)) (* tree tree))
(else (cons (square-tree (car tree))
(square-tree (cdr tree))))))
(define (square-tree-steroids tree)
(map (lambda (sub-tree)
(if (not (pair? sub-tree))
(* sub-tree sub-tree)
(square-tree-steroids sub-tree)))
tree))
;;; Guile REPL
;;;
;;; scheme@(guile-user)> ,use (net ricketyspace sicp two thirty)
;;; scheme@(guile-user)> (square-tree
;;; (list 1
;;; (list 2 (list 3 4) 5)
;;; (list 6 7)))
;;; $6 = (1 (4 (9 16) 25) (36 49))
;;; scheme@(guile-user)> (square-tree-steroids
;;; (list 1
;;; (list 2 (list 3 4) 5)
;;; (list 6 7)))
;;; $7 = (1 (4 (9 16) 25) (36 49))
|