File standardInput readLines map(v,c:=b:=500;a:=v asNumber;while(a!=b,c=c/2;writeln(b,if(a>b,v=c;" <",v= -c;" >"));b=b+v+.5|0);writeln(b," = "))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page