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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#!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