start to solve 60

2025-09-22 00:45:57 +02:00
parent 8995b69804
commit d281923802
1 changed files with 15 additions and 0 deletions
--- a/60/main.ua
+++ b/60/main.ua
@@ -0,0 +1,15 @@
+# project euler 60
+# ? n
+IsPrime ← memo(=1⧻°/×)
+# [all pair-concatenations of [n]] ? [n]
+Pairs ← ≡(⍜°⋕/◇⊂) ⧅≠2
+# [all primes 1 through n] ? n
+Primes ← +1⊚≡IsPrime+1⇡
+# do numbers [n] form all prime Pairs?
+# bool ? [n]
+Check ← /↧≡IsPrime Pairs
+
+⍤⤙≍ 1 Check [3 7 109 673]
+
+⧅<4 Primes 1000
+▽⊸≡Check