$ perl -le'print(($_%3?"":"Fizz").($_%5?"":"Buzz")||$_)for 1..100' # 64bytesあんまり短くならないなあ。 $ perl -le'print((("."x$_)=~/^(.{3})*$/&&"Fizz").(("."x$_)=~/^(.{5})*$/&&"Buzz")||$_)for 1..100' $ seq 100 | perl -pe's{^(?:([147]5|[369…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。