p:printf;while(a:?read(?-,?-,0))#0 do(b:c:1000,while a#(b:fix(.5+b+signum(a-b)*c:c/2))do p(?t,"~d ~:[>~;<~] ",b,is(a>b)),p(?t,"~d = ",b));
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page