16 lines
286 B
Text
16 lines
286 B
Text
[ abs 0 swap
|
|
[ base share /mod
|
|
dup *
|
|
rot + swap
|
|
dup 0 = until ]
|
|
drop ] is digitsquaresum ( n --> n )
|
|
|
|
[ dup 1 != while
|
|
dup 89 != while
|
|
digitsquaresum
|
|
again ] is chainends ( n --> n )
|
|
|
|
0 1000000 times
|
|
[ i^ 1+ chainends
|
|
89 = + ]
|
|
echo
|