mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-07-13 16:07:35 +02:00
14 lines
189 B
Scheme
14 lines
189 B
Scheme
|
|
(define (fact-helper x res)
|
|
(if (zero? x)
|
|
res
|
|
(fact-helper (- x 1) (* res x))))
|
|
|
|
(define (fact x)
|
|
(fact-helper x 1))
|
|
|
|
(display "(fact 3) => ")
|
|
(write (fact 3))
|
|
(newline)
|
|
|
|
|