20 lines
207 B
Text
20 lines
207 B
Text
C :sqr=1
|
|
C :cbr=1
|
|
C :sq=1
|
|
C :cb=1
|
|
C :n=0
|
|
|
|
*square
|
|
U (sq>cb):*cube
|
|
C (sq<cb):n=n+1
|
|
T (sq<cb):#sq
|
|
C :sqr=sqr+1
|
|
C :sq=sqr*#sqr
|
|
J (n<30):*square
|
|
E :
|
|
|
|
*cube
|
|
C :cbr=cbr+1
|
|
C :cb=(cbr*#cbr)*#cbr
|
|
J (sq>cb):*cube
|
|
E :
|