Generate random numbers without repeating a value: Difference between revisions

Content added Content deleted
m (→‎{{header|RPL}}: improved code)
m (→‎{{header|RPL}}: Comments)
Line 1,029: Line 1,029:
'''Stand-alone implementation'''
'''Stand-alone implementation'''
≪ 0 → n r
≪ 0 → n r
≪ 1 n '''FOR''' j j '''NEXT'''
≪ 1 n '''FOR''' j j '''NEXT''' <span style="color:grey">@ fill stack with 1, 2,..n</span>
1 n '''START'''
1 n '''START'''
n RAND * CEIL 'r' STO
n 1 - RAND * CEIL 1 + 'r' STO
r ROLL SWAP r ROLLD
r ROLL SWAP r ROLLD <span style="color:grey">@ swap 2 stack levels randomly, n times</span>
n ROLL
n ROLL
'''NEXT'''
'''NEXT'''