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
|