diff options
Diffstat (limited to 'tests/mime-detection/test.scm')
| -rw-r--r-- | tests/mime-detection/test.scm | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/tests/mime-detection/test.scm b/tests/mime-detection/test.scm new file mode 100644 index 00000000..8f60c784 --- /dev/null +++ b/tests/mime-detection/test.scm @@ -0,0 +1,15 @@ +;; tested with Guile; might need +;; slight modification for your +;; Scheme dialect + +(use-modules (ice-9 format)) + +(define (fac n) + (let loop ((acc 1) + (i n)) + (if (zero? i) + acc + (loop (* acc i) (- i 1))))) + +(format #t "(fac 5) = ~d\n" (fac 5)) + |