ナベアツ問題
http://q.hatena.ne.jp/1207585413
これ。
MacOS X の人はターミナルからこう打ってみ。
perl -le 'print $_, !($_ % 3) || /3/ ? " aho" :"" , !($_ % 5) || /5/ ? " cool" : "" while (++$_)'
おっと。Ctrl-C で止められます。
# Perl golf の達人ならもっと短くできそう
http://q.hatena.ne.jp/1207585413
これ。
MacOS X の人はターミナルからこう打ってみ。
perl -le 'print $_, !($_ % 3) || /3/ ? " aho" :"" , !($_ % 5) || /5/ ? " cool" : "" while (++$_)'
おっと。Ctrl-C で止められます。
# Perl golf の達人ならもっと短くできそう