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)