14 lines
306 B
Plaintext
14 lines
306 B
Plaintext
100 :
|
|
110 REM KNUTH SHUFFLE
|
|
120 :
|
|
130 DIM A(25)
|
|
140 FOR I = 1 TO 25
|
|
150 A(I) = I: PRINT A(I);" ";: NEXT I
|
|
160 PRINT : PRINT
|
|
170 FOR I = 25 TO 2 STEP - 1
|
|
180 J = INT ( RND (1) * I + 1)
|
|
190 T = A(I):A(I) = A(J):A(J) = T: NEXT I
|
|
200 FOR I = 1 TO 25
|
|
210 PRINT A(I);" ";: NEXT I
|
|
220 END
|