- 564 名前：デフォルトの名無しさん mailto:sage [2009/06/21(日) 22:55:20 ]
- すみません、質問させてください
木構造のmapのiter版って作れるんでしょうか
なんとかこんなのを書いてみたんですが、flattenされてしまってます
(define (tmap f t)
(define (aux f t r)
(cond ((null? t) r)
((not (pair? t)) (cons (f t) r))
(else (aux f (cdr t) (aux f (car t) r)))))
(reverse (aux f t ())))
(tmap (lambda (x) (* x x)) '((1 2) (3 (4 5))))
;こうなって欲しい
'((1 4) (9 (16 25)))
