chickadee » aima » shuffle

Shuffle a list.

list

The list to shuffle

(define (shuffle list)
  (let ((vector (list->vector list))) (shuffle! vector) (vector->list vector)))