From d281923802de38f54900d8fabdde4230dcd51dae Mon Sep 17 00:00:00 2001
From: fredrikr79 <fredrikrobertsen7@gmail.com>
Date: Mon, 22 Sep 2025 00:45:57 +0200
Subject: [PATCH] start to solve 60

---
 60/main.ua | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 60/main.ua

diff --git a/60/main.ua b/60/main.ua
new file mode 100644
index 0000000..2620ad5
--- /dev/null
+++ 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