random numbers

[DANILIN]

Binary Sequence Predictor "game"?  (Read 10252 times)

https://qb64forum.alephc.xyz/index.php?t...#msg140722

My favorite circle string "1 goto 1"

  1 m = INT(RND*a)+1: IF ABS(d(i)-d(m)) < .1*a THEN v = v+1: GOTO 1

Controlled what all numbers is on new places

plus minus diapazon from original place

+ Shuffling Letters
https://qb64forum.alephc.xyz/index.php?topic=3982

Program above outputs repeats and the numbers -1 and 0
But even excluding -1 and 0, do we repetitions? There are

Code: (Select All)

For i = 1 To TopN ' results of shuffle
    Print "  "; i;
    If i = n(i) Then Print "=!!!";: rep = rep + 1 Else Print "-";:
    Print n(i) - 0; Chr$(9);
Next: Print: Print rep
End

So it's always worse than I have 0 repetitions