P23
(de rnd-select (Lst N) (make (until (=0 N) (when (>= N (rand 1 (length Lst))) (link (car Lst)) (dec 'N) ) (pop 'Lst) ) ) )
http://picolisp.com/wiki/?99p23
10jul10 | abu |
(de rnd-select (Lst N) (make (until (=0 N) (when (>= N (rand 1 (length Lst))) (link (car Lst)) (dec 'N) ) (pop 'Lst) ) ) )
http://picolisp.com/wiki/?99p23
10jul10 | abu |