DozzFizzBuzz by %20

for(print$i=1;$x=$i++<100;print$/x!$j++.((Q,D,F,B,M,P)[$j%6].(a,o,i,u,e)[$j%5].zz)[$i%$_]for@p){$x*=$i%$_ for@p;$x&&push@p,$i;$j=0}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page