@tigt/

WindingPoorMouse

Scheme

No description

fork
loading
main.scm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
(define-macro for
  (lambda (iterator start end . body)
    `(let loop ((,iterator ,start))
      (if (<= ,iterator ,end)
      (loop (+ ,iterator 1) (begin ,@body))))))

(for x 1 100
  (cond
  	( (zero? (+ (mod x 3) (mod x 5))) (print "FizzBuzz") )
  	( (zero? (mod x 3))               (print "Fizz")     )
  	( (zero? (mod x 5))               (print "Buzz")     )
  	( else                            (print x)          )
  )
)
BiwaScheme Interpreter version 0.6.4 Copyright (C) 2007-2014 Yutaka HARA and the BiwaScheme team