scheme.scm 282 Bytes
Edit Raw Blame History Permalink



1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17


; Syntax Highlighting Test File for Scheme
; Comments are like this

; Hello World
(define hello-world
  (lambda ()
    (begin
      (write 'Hello-World)
      (newline)
      (hello-world)))) 

; Factorial
(define (fact n)
    (if (= n 0)
        1
        (* n (fact (- n 1)))))