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

New test file

Browse source
This commit is contained in:
Justin Ethier 2018-10-01 13:21:01 -04:00
parent 54e32106f5
commit ffb15e8d87
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
tests/experimental/fac-test.scm Normal file
View file

@ -0,0 +1,12 @@
(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))