19 lines
311 B
Text
19 lines
311 B
Text
PROGRAM KNUTH_SHUFFLE
|
|
|
|
CONST CARDS%=52
|
|
|
|
DIM PACK%[CARDS%]
|
|
|
|
BEGIN
|
|
RANDOMIZE(TIMER)
|
|
FOR I%=1 TO CARDS% DO
|
|
PACK%[I%]=I%
|
|
END FOR
|
|
FOR N%=CARDS% TO 2 STEP -1 DO
|
|
SWAP(PACK%[N%],PACK%[1+INT(N%*RND(1))])
|
|
END FOR
|
|
FOR I%=1 TO CARDS% DO
|
|
PRINT(PACK%[I%];)
|
|
END FOR
|
|
PRINT
|
|
END PROGRAM
|