path: root/js/games/nluqo.github.io/~bh/61a-pages/Lectures/2.2/tree11.scm



(define (treemap fn tree)
  (make-tree (fn (datum tree))
	     (forest-map fn (children tree))))

(define (forest-map fn forest)
  (if (null? forest)
      '()
      (cons (treemap fn (car forest))
	    (forest-map fn (cdr forest)))))
(define (treemap fn tree)
  (make-tree (fn (datum tree))
	     (forest-map fn (children tree))))

(define (forest-map fn forest)
  (if (null? forest)
      '()
      (cons (treemap fn (car forest))
	    (forest-map fn (cdr forest)))))