mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Factorial/Scheme/factorial-2.scm

7 lines
133 B
Scheme
Raw Permalink Blame History

(define (factorial n)
(let loop ((i 1)
(accum 1))
(if (> i n)
accum
(loop (+ i 1) (* accum i)))))
Reference in New Issue View Git Blame Copy Permalink