Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defn tree-map [proc tree]
- (map (fn [sub-tree]
- (if (not (isinstance sub-tree list))
- (proc sub-tree)
- (tree-map proc sub-tree)))
- tree))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement