リスト作る系ループ関数でFizzBuzz【CommonLisp、Scheme、Clojure】 | 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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
;CommonLisp
(format t
    "~{~A~^~%~}~%"
    (loop for i from 1 to 100 collect
        (let (
            (isFizz (= 0 (mod i 3)))
            (isBuzz (= 0 (mod i 5))))
            (cond
                ((and isFizz isBuzz)
                    "Fizz Buzz")
                (isFizz
                    "Fizz")
                (isBuzz
                    "Buzz")
                (t
                    i)))))
(quit)
;Scheme(sash)
(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"))
;Clojure
(println
    (clojure.string/join
        "\n"
        (for[i (range 1 (inc 100))]
            (let [
                isFizz (= 0 (mod i 3))
                isBuzz (= 0 (mod i 5))]
                (cond
                    (and isFizz isBuzz)
                        "Fizz Buzz"
                    isFizz
                        "Fizz"
                    isBuzz
                        "Buzz"
                    :else
                        i)))))
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX