如何编写从列表中随机选择一对的过程？

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