Re: Add seq-shuffle

[Emanuel Berg <incal@dataswamp.org>]

Philip Kaludercic wrote:

>> (defun seq-shuffle (sequence)
>>   (cl-assert (sequencep sequence))
>>
>>   (let* ((vec (seq-into sequence 'vector))
>>          (length (length vec))
>>          (n 0)
>>          (seq-type (type-of sequence)))
>>     (while (< n length)
>>       (let ((i (+ n (random (- length n))))
>>             (tmp (aref vec n)))
>>         (setf (aref vec n) (aref vec i)
>>               (aref vec i) tmp))
>
> If you are already using cl-lib, then you can simplify this with
>
>   (cl-rotatef (aref vec n) (aref vec i))

(seq-sort (lambda (_ __) (zerop (random 2))) seq)

-- 
underground experts united
https://dataswamp.org/~incal