Rolling division by smkt

sub z{printf"%.1f\n",$n;}$n=<>;z;while($n>1){$n/=2;$w=$n-int$n;$n=$w>.3?int($n)+($w<.7?.5:1):int$n;z;}\x0d
\x0d
\x09

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

download

return to the top page