Randomize a List problem

[David Hayden]

[ Edit: fixed some typos that Albert Chan pointed out in a private message. Thanks Albert! ]
You can swap level 1 with level N with

Code:

N PICK SWAP N UNPICK

You can use this to swap levels M and N with

Code:

           N PICK SWAP N UNPICK @ swap level n and level 1
           M PICK SWAP M UNPICK @ swap level m and level 1
           N PICK SWAP N UNPICK @ swap level n and level 1

But that won't work if N = M, so it needs to be

Code:

IF N M < THEN  @ EDIT: < should be ≠
           N PICK SWAP N UNPICK @ swap level n and level 1
           M PICK SWAP M UNPICK @ swap level m and level 1
           N PICK SWAP N UNPICK @ swap level n and level 1
           END

With that, you can efficiently sort a list with [ EDIT: "sort" should be "shuffle" ]

Code:

«
LIST➝ 
 @ Subroutine to swap level n with level m
 « ➝ N M « IF N M ‹ THEN
           N PICK SWAP N UNPICK @ swap level n and level 1
           M PICK SWAP M UNPICK @ swap level m and level 1
           N PICK SWAP N UNPICK @ swap level n and level 1
           END
           » »
 ➝ t nmswap
  « t 2. FOR n
    n RAND * CEIL
    n nmswap EVAL
    -1. STEP
    t ➝LIST
  »
»