let p=Printf.printf;;for n=1to 1000do let(@)k?(i=n/k mod 10)x=x>(i/3*3=i&i>0&()=p"Clap")in 1@10@100@true&()=p"%d"n;p" "done
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page