Advertisement
Guest User

Untitled

a guest
Jul 26th, 2017
92
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.29 KB | None | 0 0
  1. (define n-to-f '{fun {n} {fun {f} {fun {x}
  2. fcreate}}})
  3.  
  4. (define fcreate '{fun {b} {with {xpnd {fun {xpndX b}
  5. {if0 b
  6. x
  7. (f (xpndX xpndX (- b 1)))}}}}})
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement