perlでFizzBuzz、ワンライナー。

perl -e '$i=0;while($i++<100){print(($i%3?($i%5?$i:"Buzz"):($i%5?"Fizz":"FizzBuzz"))."\n");}'
0
0
0
s2smodern

Developed in conjunction with Joomla extensions.