37 lines
706 B
Plaintext
37 lines
706 B
Plaintext
R[1] := 5 + 0 # Eingabelänge
|
|
|
|
R[2] := 3 # erstes Element der Eingabe
|
|
R[3] := 6
|
|
R[4] := 1
|
|
R[5] := 10
|
|
R[6] := 5 # letzes Element der Eingabe
|
|
|
|
|
|
|
|
R[0] := R[1] + 2
|
|
R[R[0]] := R[2] + 0
|
|
R[0] := R[0] + 1
|
|
R[R[0]] := R[3] + 0
|
|
R[0] := R[0] + 1
|
|
R[R[0]] := R[4] + 0
|
|
R[0] := R[0] + 1
|
|
R[R[0]] := R[5] + 0
|
|
R[2] := 2 + 0
|
|
if R[2] > R[1] goto 35
|
|
R[0] := R[2] + 5
|
|
R[4] := R[R[0]] + 0
|
|
R[3] := R[2] - 1
|
|
if R[3] <= 0 goto 31
|
|
R[0] := R[3] + 5
|
|
if R[4] >= R[R[0]] goto 31
|
|
R[5] := R[3] + 6
|
|
R[R[5]] := R[R[0]] + 0
|
|
R[3] := R[3] - 1
|
|
if 0 == 0 goto 24
|
|
R[5] := R[3] + 6
|
|
R[R[5]] := R[4] + 0
|
|
R[2] := R[2] + 1
|
|
if 0 == 0 goto 20
|
|
|
|
R[out] := 1
|