Number guess 1000 by pooq

for n=1to 100b=500
c=b
input""a
while(a<>b)c=c/2
?b;
if a>b?" <":d=c
if a<b?" >":d=-c
b=int(b+d+.5)wend
?b," ="
if a=768end
?next

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

download

return to the top page