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

我正在创建一个跳棋游戏，我需要一个程序，从对子列表中随机选择一对。

我知道这个问题提出已经有一段时间了

(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

但也许它对某个地方的人有用。 你也可以这样做：

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

---

听起来像是家庭作业。。。你试过什么？什么不起作用？你对如何进行这项工作有什么想法吗？你应该补充一点，你的解决方案是一个高度特定于球拍的解决方案。虽然有人可能会假设

随机

是任何方案实施的一部分（尽管没有标准化），但

随机

的情况并非如此。