11 lines
230 B
Text
11 lines
230 B
Text
10 DEFINT A-Z
|
|
20 DIM E(1000)
|
|
30 FOR I=0 TO 999
|
|
40 FOR J=I-1 TO 0 STEP -1
|
|
50 IF E(J)=E(I) THEN E(I+1)=I-J: GOTO 80
|
|
60 NEXT J
|
|
70 E(I+1)=0
|
|
80 NEXT I
|
|
90 FOR I=0 TO 9: PRINT E(I);: NEXT
|
|
95 PRINT
|
|
100 FOR I=990 TO 999: PRINT E(I);: NEXT
|