DouKaku?beta

Comment detail

変形Fizz-Buzz問題 (Nested Flatten)

Scheme(Gauche)で。題意に満すのかどうかわかりませんが……。

1
2
3
4
5
6
7
8
(use srfi-1)

(map (lambda (n)
       (format #t "~a:~a\n" n (or (and (= (modulo n 15) 0) "FizzBuzz")
                                  (and (= (modulo n 3)  0) "Fizz")
                                  (and (= (modulo n 5)  0) "Buzz")
                                  "hoge")))
     (iota 20 1))

あ、mapになってた……。for-eachで。

Index

Feed

Other

Link

Pathtraq

loading...
Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]