Big Sky :: Perl で 逆FizzBuzz

逆FizzBuzz問題 (Inverse FizzBuzz) - 猫とC#について書くmatarilloの雑記 逆FizzBuzz問題 (Inverse FizzBuzz) General | Inverse Fizzbuzz - just another scala quant を日本語にしました。 ちなみに... http://d.hatena.ne.jp/matarillo/20120515/p1 逆FizzBuzzって、オートマトンなので正規表現を使うと楽に出来るはず。 #!perl use strict; use warnings; use Test::More; sub inv_fizzbuzz { my ($fz, $n, $pat) = ('', 1, join ',*?', @_); while (1) { $fz .= $n % 15 > 0 ? $n % 3 > 0

[mattn]

書いた

[pmint]

Googleさんがパターンマッチに言及しているのはヒントだと思う。参考にしました。 https://gist.github.com/2860841

[jdg]

俺も◯◯なパターンだから◯◯で解くってわかるようになりたい。

[tmsanrinsha]

逆FizzBuzz問題面白そう