Knuth shuffle: Difference between revisions

Content added Content deleted
(Knuth shuffle in Yabasic)
m (→‎{{header|QB64}}: syntax hi-lighting, sub-headered)
Line 1,197: Line 1,197:
330 END DEF</lang>
330 END DEF</lang>


=={{header|QB64}}==
==={{header|QB64}}===
shuffle and make sure that number does not take its place<br/>
<lang QB64>
shuffle and make sure that number does not take its place
and between cells at least 10% ... Shuffle from Russia
and between cells at least 10% ... Shuffle from Russia
<lang qbasic>

a = 100: DIM d(a): x=0: k=0: t$=CHR$(9): RANDOMIZE TIMER 'Shuffle_RUS.bas
a = 100: DIM d(a): x=0: k=0: t$=CHR$(9): RANDOMIZE TIMER 'Shuffle_RUS.bas
PRINT ,: FOR i = 1 TO a: d(i)=i: NEXT
PRINT ,: FOR i = 1 TO a: d(i)=i: NEXT