Как мне написать процедуру, которая случайным образом выбирает пару из списка?

Question

Я создаю игру в шашки, и мне нужна процедура, которая случайным образом выбирает пару из списка пар.

Answer 1

Я знаю, что это было давно, так как этот вопрос был задан но, может быть, это когда-нибудь пригодится кому-то. Вы также можете сделать:

     (car              ;; "car" picks the first element or the "head" of a list
       (shuffle        ;; well... shuffles
         (yourList)))

Answer 2

(define select-random
  (lambda (ls)
    (let ((len (length ls)))         ;; find out how long the list is
      (list-ref ls (random len)))))  ;; pick one from 0 to the end