RosettaCodeData/Task/Square-but-not-cube/FOCAL/square-but-not-cube.focal
2023-07-01 13:44:08 -04:00

8 lines
182 B
Text

01.10 S C=1;S S=1;S Q=1;S R=1;S N=1
01.20 I (N-30)1.3,1.3,1.8
01.30 S S=Q*Q
01.40 I (S-C)1.6,1.7,1.5
01.50 S R=R+1;S C=R*R*R;G 1.4
01.60 S N=N+1;T %4,S,!
01.70 S Q=Q+1;G 1.2
01.80 Q