20 lines
383 B
Plaintext
20 lines
383 B
Plaintext
01.10 T "FIRST 15"
|
|
01.20 F N=0,14;D 2;T %2,A(N)
|
|
01.30 T !"FIRST REPEATED"
|
|
01.40 D 2;S Y=1
|
|
01.50 F M=0,N-1;S Y=Y*(A(M)-A(N))
|
|
01.60 I (Y)1.7,1.8,1.7
|
|
01.70 S N=N+1;G 1.4
|
|
01.80 T A(N)," AT A(",N,")"!
|
|
01.90 Q
|
|
|
|
02.05 I (N)2.1,2.06,2.1
|
|
02.06 A(0)=0;R
|
|
02.10 S X=A(N-1)-N
|
|
02.20 I (X)2.7
|
|
02.30 S Y=1
|
|
02.40 F M=0,N-1;S Y=Y*(A(M)-X)
|
|
02.50 I (Y)2.6,2.7,2.6
|
|
02.60 S A(N)=X;R
|
|
02.70 S A(N)=A(N-1)+N
|