Advertisement
Guest User

Untitled

a guest
Sep 20th, 2018
98
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.11 KB | None | 0 0
  1. (define (funPower f x)
  2. (lambda (y)
  3. (if (eqv? 1 x)
  4. (f y)
  5. (f ((funPower f (- x 1)) y)))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement