From 00805bbcf8bbe78f712f72c6df01e22142657f36 Mon Sep 17 00:00:00 2001 From: Fredrik Robertsen Date: Sun, 7 Sep 2025 10:39:21 +0200 Subject: [PATCH] solve 35 in uiua (SLOW) --- 35/main.ua | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100644 35/main.ua 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