7 lines
197 B
Scheme
7 lines
197 B
Scheme
#lang sicp
|
|
|
|
(define (tree-map f tree)
|
|
(cond ((null? tree) '())
|
|
((pair? tree) (cons (tree-map f (car tree))
|
|
(tree-map f (cdr tree))))
|
|
(else (f tree))))
|