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