Scale byte values by pooq

k:1024;p:printf;thru 1343 do if(n:?read())<k then p(?t,"~a
",n)else if n<k*k then p(?t,"~,2f KB
",n/k)else p(?t,"~,2f MB
",(n+9)/k^2);

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

download

return to the top page