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