14 lines
252 B
Text
14 lines
252 B
Text
01.10 A "ORDER",O;S S=2^(O+1)
|
|
01.20 F X=0,S;S L(X)=0
|
|
01.30 S L(S/2)=1
|
|
01.40 F I=1,S/2;D 2;D 3
|
|
01.90 Q
|
|
|
|
02.10 F X=1,S-1;D 2.3
|
|
02.20 T !;R
|
|
02.30 I (L(X)),2.4,2.5
|
|
02.40 T " "
|
|
02.50 T "*"
|
|
|
|
03.10 F X=0,S;S K(X)=FABS(L(X-1)-L(X+1))
|
|
03.20 F X=0,S;S L(X)=K(X)
|