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'