11 lines
330 B
Plaintext
11 lines
330 B
Plaintext
# 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
|