## 369 by ksk

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