mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-23 20:15:05 +02:00
12 lines
190 B
Scheme
12 lines
190 B
Scheme
(import (scheme base)
|
|
(scheme write)
|
|
)
|
|
|
|
;(define (test n)
|
|
; ((lambda (x) (+ x x))
|
|
; n))
|
|
;(write (test 10))
|
|
|
|
(define (fac n) (if (= n 0) 1 (* n (fac (- n 1)))))
|
|
|
|
(write (fac 10))
|