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