4 lines
130 B
Text
4 lines
130 B
Text
(de mapTree (Tree Fun)
|
|
(set Tree (Fun (car Tree)))
|
|
(and (cadr Tree) (mapTree @ Fun))
|
|
(and (cddr Tree) (mapTree @ Fun)) )
|