Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (define n-to-f '{fun {n} {fun {f} {fun {x}
- fcreate}}})
- (define fcreate '{fun {b} {with {xpnd {fun {xpndX b}
- {if0 b
- x
- (f (xpndX xpndX (- b 1)))}}}}})
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement