(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