Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
19
Task/Knuth-shuffle/ERRE/knuth-shuffle.erre
Normal file
19
Task/Knuth-shuffle/ERRE/knuth-shuffle.erre
Normal file
|
|
@ -0,0 +1,19 @@
|
|||
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
|
||||
Loading…
Add table
Add a link
Reference in a new issue