Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
21 lines (16 sloc) 391 Bytes
;; Example 2.31
(define (square x)
(* x x))
(define (tree-map proc tree)
(map (lambda (sub-tree)
(if (pair? sub-tree)
(tree-map proc sub-tree)
(proc sub-tree)))
tree))
(define (square-tree tree)
(tree-map square tree))
(define tree (list 1
(list 2 (list 3 4) 5)
(list 6 7)))
tree
(square-tree tree)
Jump to Line
Something went wrong with that request. Please try again.