diff --git a/35/main.ua b/35/main.ua new file mode 100644 index 0000000..a917d1d --- /dev/null +++ b/35/main.ua @@ -0,0 +1,12 @@ +# 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