use 5.012;sub t{state$t='@PERLMONKSFAITH';++$_[0]>100?exit:$_->[ord("@ +"^($t.=substr$t,0,1,''))]}$_->[0](my $n=1)for[map{my$s=$_;sub{say$s?" +${s}zz":$_[0];goto&{&t}}}qw/0 Fi 0 0 0 Fi 0 0 FizzBu 0 0 Fi Bu Fi 0 0 + 0 0 0 Bu 0/]
In reply to Re^2: Rate my fizzbuzz
by ysth
in thread Rate my fizzbuzz
by Vonunov
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |