13 lines
238 B
Plaintext
13 lines
238 B
Plaintext
# project euler 35
|
||
|
||
# is_prime(n) ? n
|
||
p ← =1⧻°/×
|
||
# is_circular_prime(n) ? n
|
||
c ← /↧≡p⍜⊥₁₀(≡↻⊙¤°⊏)
|
||
|
||
┌─╴test
|
||
⍤⤙≍ 1 /↧≡c[2 3 5 7 11 13 17 31 37 71 73 79 97]
|
||
└─╴
|
||
|
||
⧻▽⊸≡c +1⇡-1 1e6
|