srfi 49 移植テスト(♐Scheme) | Codetter（こーどったー）

#!reader=srfi/49
(import (srfi 49))
import
	srfi 1

display
	string-join
		list-tabulate 100 
			lambda (i)
				let ((i (+ 1 i)))
					(let (
						(isFizz (= 0 (mod i 3)))
						(isBuzz (= 0 (mod i 5))))
						(cond
							((and isFizz isBuzz)
								"Fizz Buzz")
							(isFizz
								"Fizz")
							(isBuzz
								"Buzz")
							(else
								(number->string i))))
		"\n"
(newline)