A few test routines in gimmick

fib.gmk

(begin
(define fib (lambda (n) 
    (if (< n 2) 
        1 
        (+ (fib (- n 1)) (fib (- n 2))))))

(define fib2 (lambda (n)
    (begin
        (define fib2Rec (lambda (a b n)
            (if (eqv? n 0)
                a
                (fib2Rec b (+ a b) (- n 1)))))
        (fib2Rec 0 1 n))))

(define s1 (lambda (n)
  (if (eqv? n 0)
      0
      (+ n (s1 (- n 1))))))

(define s2 (lambda (n acc)
  (if (eqv? n 0)
      acc
      (s2 (- n 1) (+ acc n)))))
)