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