37 lines
302 B
Text
37 lines
302 B
Text
C :max=8
|
|
:n=0
|
|
:i=0
|
|
*test
|
|
U :*happy
|
|
T (a=1):#n
|
|
C (a=1):i=i+1
|
|
C :n=n+1
|
|
J (i<max):*test
|
|
E :
|
|
|
|
*happy
|
|
C :a=n
|
|
:x=n
|
|
U :*sumsq
|
|
C :b=s
|
|
*loop
|
|
C :x=a
|
|
U :*sumsq
|
|
C :a=s
|
|
C :x=b
|
|
U :*sumsq
|
|
C :x=s
|
|
U :*sumsq
|
|
C :b=s
|
|
J (a<>b):*loop
|
|
E :
|
|
|
|
*sumsq
|
|
C :s=0
|
|
*digit
|
|
C :y=x/10
|
|
:z=x-y*10
|
|
:s=s+z*#z
|
|
:x=y
|
|
J (x):*digit
|
|
E :
|