FizzBuzzってはやってたけど、３の倍数と３の付く数字でアホになる場合はどうなるかやってみた。

perl -e'print+(aho)[$_%3 and (/3/)?0:1]||$_,$/for 1..100'

もっと短くなるのだろうか。。。


参考:
FizzBuzz - Golf Challenge


追記: ３項演算子いらないみたい。

perl -e'print+(aho)[$_%3 and !/3/]||$_,$/for 1..100'