P25

(de rnd-permu (Lst)
   (by '(NIL (rand)) sort Lst) )

http://picolisp.com/wiki/?99p25

10jul10

abu