2011-02-19から1日間の記事一覧

地獄の FizzBuzz その 4

ステキな言語機能が無ければ作ればいいじゃない、という声が聞こえたので Scheme で (define-syntax anycond (syntax-rules () ((_ e1 ...) (let ((result #f) (flag #t)) (anycond-loop result flag e1 ...) result )))) (define-syntax anycond-loop (synt…

地獄の FizzBuzz その 3

JavaScript の配列内包で var range = function (begin, end) { for (let i = begin; i < end; ++i) { yield i; } } var dummy = [document.writeln(s) for each (i in range(1, 50)) if (s = "", i % 3 ? true : (s = s + "Fizz"), i % 5 ? true : (s = s +…

地獄の FizzBuzz その 2

Ruby で (1 .. 100).each {|i| s = [[3, "Fizz"], [5, "Buzz"], [7, "Pezz"], [11, "Hozz"], [13, "Shizu"]].map {|n, s| if i % n == 0 then s else "" end }.join "" if s.empty? then s = i.to_s end puts s } 実行結果 $ ruby19 fizzbuzz.rb 1 2 Fizz 4 …