srfi 49 移植テスト(♐Scheme)

#!reader=srfi/49 (import (srfi 49)) import srfi 1 displ […]

#!reader=srfi/49 (import (srfi 49)) import srfi 1 displ […]

  • タグ:
  • タグはありません
#!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)
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX