mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-18 21:29:18 +02:00
10 lines
132 B
Scheme
10 lines
132 B
Scheme
(import (scheme base)
|
|
(scheme write))
|
|
|
|
(define (fac n)
|
|
(if (= n 0)
|
|
1
|
|
(* n (fac (- n 1)))))
|
|
|
|
(write
|
|
(fac 10))
|