07/10/22 22:49:39
>>769
破壊的にやってみた
(defun shuffle (list)
(let ((st (make-random-state t))
(len (length list)))
(dotimes (i len list)
(rotatef (car (nthcdr (random len st) list))
(car (nthcdr (random len st) list))))))
07/10/22 22:49:39
>>769
破壊的にやってみた
(defun shuffle (list)
(let ((st (make-random-state t))
(len (length list)))
(dotimes (i len list)
(rotatef (car (nthcdr (random len st) list))
(car (nthcdr (random len st) list))))))