Number guess 1000 by youz

(while(= a(read)n 0 d 1e3)(drain(prn(-- n(int:-((if(< n a)- +)(zap / d 2))0.1))" "(if(< n a)'<(> n a)'>"=
"))a))

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

download

return to the top page