solve 55 in uiua

2025-09-19 07:41:38 +02:00
parent bb04a2eb61
commit 28c16dec46
1 changed files with 10 additions and 0 deletions
--- a/55/main.ua
+++ b/55/main.ua
@@ -0,0 +1,10 @@
+# project euler 55
+c ← ⍜⊥₁₀(+⟜⇌)
+p ← ≍⟜⇌⊥₁₀
+
+⇡10000
+°□⊃⊢⊣⊕□⊙⍉⊙⊟⊸≡p⊸≡c # first iteration
+Iter ← ⊙(⊂□)⊃(▽¬)▽⊙⍉⊙⊂⊸≡p≡c⊸⊢⍉
+◌◌⍢(+1⊙(Iter)|↧⊙(≠0⧻)<50)1
+/◇⊂ ⍚≡⊣
+⧻⊚¬˜∊⇡10000 # i found the non-lychrel numbers