P24,P25
P22,P23の結果を使う。
P24では、1〜mまでの整数からn個の整数を重複無しに選択する。
P25では、リストをランダムに並べ替える。
;; P24 (defun lotto-select (n m) (rnd-select (range 1 m) n)) (time (lotto-select 6 49)) ;; => (7 14 37 11 33 43) ;; P25 (defun rnd-permu (list) (rnd-select list (length list))) (rnd-permu '(a b c d e f)) ;; => (C E F D B A)