From 28c16dec46ac235f1fe42c3e9182da05840c4fba Mon Sep 17 00:00:00 2001 From: fredrikr79 Date: Fri, 19 Sep 2025 07:41:38 +0200 Subject: [PATCH] solve 55 in uiua --- 55/main.ua | 10 ++++++++++ 1 file changed, 10 insertions(+) create mode 100644 55/main.ua diff --git a/55/main.ua b/55/main.ua new file mode 100644 index 0000000..0041c46 --- /dev/null +++ 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