conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
picrin/t/tailcall.scm

7 lines
102 B
Scheme
Raw Blame History

(define (sum k acc)
(if (zero? k)
acc
(sum (- k 1) (+ k acc))))
(display (sum 1000 0))
Reference in New Issue View Git Blame Copy Permalink