Number guess 1000 by I., S.(imperative)

3 :'Q=:D=:500 while.S[wd(":Q),u:32,61+S=:*Q-".y do.Q=:<.0.5+Q-S*D=:D%2 end.wd$9';._1(,stdin)LF

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

download

return to the top page