Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-18 21:29:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add missing imports

Browse source
This commit is contained in:
Justin Ethier 2015-07-24 21:28:10 -04:00
parent 97d4913a60
commit 4c4979cd84
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
examples/fac.scm
View file

@ -1,6 +1,10 @@
(import (scheme base)
(scheme write))
(define (fac n) (define (fac n)
(if (= n 0) (if (= n 0)
1 1
(* n (fac (- n 1))))) (* n (fac (- n 1)))))
(fac 10) (write
(fac 10))