Lisp達のFizzBuzz(リスト生成&String.Join) | 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
56
;CommonLisp
(format t "~{~A~%~}" 
    (loop for i from 1 to 100 collect
        (let(
                (fizz (= 0 (mod i 3)))
                (buzz (= 0 (mod i 5))))
            (if (and fizz buzz)
                "Fizz Buzz"
            (if fizz
                "Fizz"
            (if buzz
                "Buzz"
                i))))))
;Scheme
(display (string-append(string-join
    (map(lambda(i)
        (let(
                (fizz (= 0 (mod i 3)))
                (buzz (= 0 (mod i 5))))
            (if (and fizz buzz)
                "Fizz Buzz"
            (if fizz
                "Fizz"
            (if buzz
                "Buzz"
                (number->string i))))))
        (iota 100 1))
    "\n")"\n"))
;Clojure
(require '[clojure.string :as str])
(println (str/join "\n"
    (for[i (range 1 (inc 100))]
        (let[
                fizz,(= 0 (mod i 3))
                buzz,(= 0 (mod i 5))]
            (if (and fizz buzz)
                "Fizz Buzz"
            (if fizz
                "Fizz"
            (if buzz
                "Buzz"
                i)))))))
#Python3
print("\n".join(
    [(lambda
        fizz=0==i%3,
        buzz=0==i%5:
            "Fizz Buzz" if fizz and buzz else
            "Fizz" if fizz else
            "Buzz" if buzz else
            str(i))()
        for i in range(1,100+1)]))
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX