正規表現でFizzBuzz - Unknown::Programming

1,2,3,…,99,100 という文字列に対して正規表現でFizzBuzzに置換するような解法は.. 1,2,3,…,99,100 という文字列に対して正規表現でFizzBuzzに置換するような解法は出てないかなと思ったけど(出てたらごめんなさい＞＜)、正規表現あんまり得意じゃないので私にはできません。 それはね、 use Perl6::Say; use Regexp::Assemble; my @list = (15,5,3); my %ra = map { $_ => Regexp::Assemble->new } @list; for my $i ( 1..100 ) { for( @list ) { ($i % $_) || $ra{$_}->add(qq/^$i\$/); } } my $re = sprintf "(?:%s)" ,join '|' , map { '('.$

[miya2000]

「$reに正規表現を作っておいて」つくれるんだ！

[TransFreeBSD]

Regexp::Assembleは使えるんだねぇ

[maangie]

ほほー。なるほど。便利。