Advertisement
Guest User

Untitled

a guest
Apr 23rd, 2018
59
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.28 KB | None | 0 0
  1. (eval '((lambda-rec (sum n)
  2. (lazy-let [t 0]
  3. (lazy-let [f (+ n (sum (- n 1)))]
  4. (lazy-let [g (+ n (sum (- n 1)))]
  5. (if (= n 0) t (+ f g)))))) 10))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement