Advertisement
Guest User

Untitled

a guest
Jul 23rd, 2016
64
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Scheme 0.13 KB | None | 0 0
  1. (define sumsFromZero
  2.  (lambda (f)
  3.   (lambda (x)
  4.    (if (= x 0)
  5.      (f 0)
  6.      (+ (f x) ((sumsFromZero f) (- x 1)))
  7.     ))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement