solve 45 in uiua (FAST)

2025-10-04 08:44:49 +02:00
parent c582670d23
commit ece916c752
1 changed files with 12 additions and 0 deletions
--- a/45/main.ua
+++ b/45/main.ua
@@ -0,0 +1,12 @@
+# project euler 45
+
+T ← ÷2×⊸+₁
+P ← ÷2×⊸(-1×3)
+H ← ×⊸(-1×2)
+
+Is! ← =⟜⌊°^
+
+1⇡100000
+⊃⊃T P H    # get some numbers
+1⊚(↧∩⌞˜∊) # for all T, see if in P and H
+T⊣         # get third such trinum