[go: up one dir, main page]
Menu ▾ ▴

[r4]: / xemirp.mpl  Maximize  Restore  History

Download this file

15 lines (11 with data), 355 Bytes 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
+libhdr



is.prime(n;p) [n#2==0::n#3==0?=0;p=1;p*p<n@n#(p+=4)==0::n#(p+=2)==0?=0;1]

reverse(n;r) [r=0;n@[r=r*10+n#10;n/=10];r]

is.emirp(n;r) [r=reverse(n);r<>n&&is.prime(n)&&is.prime(r)]



.(;x,c) [

  x=11;c=0;c<20@[is.emirp(x)?[writef(" %n",x);++c];x+=2];

  newline();

  x=7701;x<8000@[is.emirp(x)?writef(" %n", x);x+=2];

  newline();

  0

]