8 lines
208 B
Plaintext
8 lines
208 B
Plaintext
# next number in chain
|
|
N ← /+⍉°√⊥10
|
|
|
|
⍜-⇡1 1e7
|
|
⍥N10 # the longest 1-chain is less than 10
|
|
-⊙1e7 ⧻⊚=1 # count 1s to subtract from 1e7
|
|
-1 # there are 999999 nums, because no 0
|