mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 05:39:18 +02:00
8 lines
159 B
Scheme
8 lines
159 B
Scheme
(define-library (fact)
|
|
(export fact)
|
|
(import (scheme base))
|
|
(begin
|
|
(define (fact n)
|
|
(if (< n 2)
|
|
1
|
|
(* n (fact (- n 1)))))))
|