frero/project_euler
0
1
Fork 0
Code Issues Pull Requests Releases Activity

start to solve 60

Browse Source
This commit is contained in:
Fredrik Robertsen
2025-09-22 00:45:57 +02:00
parent 8995b69804
commit d281923802
1 changed files with 15 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
60/main.ua
+15
View File
@@ -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