mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-20 14:19:18 +02:00
b1c0ea895b
can disable with USE_BIGNUMS=0 - the interactions between this and USE_FLONUMS are messy, so they will likely be merged into a single option in the near future (i.e. you either have only fixnums, or a full range of numeric types). adding rationals based on this would be easy and is a likely future feature. adding native support for complex numbers is unlikely.
14 lines
187 B
Scheme
14 lines
187 B
Scheme
|
|
(define (fact-helper x res)
|
|
(if (= x 0)
|
|
res
|
|
(fact-helper (- x 1) (* res x))))
|
|
|
|
(define (fact x)
|
|
(fact-helper x 1))
|
|
|
|
(display "(fact 3) => ")
|
|
(write (fact 3))
|
|
(newline)
|
|
|
|
|