Palindromic prime by m.ukai

let(%),(!)=(mod),Printf.printf"%d
"let rec(@)n i=n/i*i=n&n+2@3;1/(19999-n);n>i*i&n@i+2;(n/10000=n%10&n/1000%10=n/10%10||n/100=n%10||n<12)&()= !n;n+2@3;;!2;!3;5@3

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

download

return to the top page