如何在 Racket 中重新排列配对列表（具有字符或数字）的顺序？

Question

如何在 Racket 中将所有带有“A 'K 'Q 'J”字符的牌移动到我的手牌前面，并将所有数字 1-10 移动到最后？

例如： ((4 . ♠) (9 . ♣) (10 . ♠) (Q . ♠) (A . ♠))

变为

((A . ♠) (Q . ♠) (10 . ♠) (9 . ♣ ) (4 . ♠))

我在这里遇到的困难是处理数字和字符的混合。我可以使用排序函数对数字进行排序，但是一旦出现字符就会出现错误。

Answer 1

基本上 sort 有一个可选的 less-than? 函数，您可以在其中检查第一个参数是否小于第二个参数。例如。想象一下，我想按卡片的值 1-10 对卡片进行排序，而 J、Q、K、A 是 11-14：

;; produce a numeric value for all cards
(define (card->value c)
  (let ((v (car c)))
    (case v
      ((J) 11)
      ((Q) 12)
      ((K) 13)
      ((A) 14)
      (else v))))

(define cards '((4 . ♠) (9 . ♣) (10 . ♠) (Q . ♦) (A . ♠)))
(map card->value cards) ; ==>  (4 9 10 12 14)

(define (card-less? c1 c2)
   (< (card->value c1) (card->value c2)))

(sort '((4 . ♠) (9 . ♣) (10 . ♠) (Q . ♦) (A . ♠)) card-less?)
; ==> ((4 . ♠) (9 . ♣) (10 . ♠) (Q . ♦) (A . ♠))

由于您遵循相反的顺序，因此您应该传递 card-greater? 而不是card-less? 和 sort 的相反会颠倒顺序吗？

如果您使用#langracket，您可以利用两个额外的可选值并使其无需无卡？：

(sort cards < #:key card->value     #:cache-keys? #t)
; ==> ((4 . ♠) (9 . ♣) (10 . ♠) (Q . ♦) (A . ♠))

Answer 2

您可以使用排序功能，例如这个：（排序顺序过程）。 过程可能如下所示：

(define sort/cards
  (lambda(a b)
    (if (check: a is member of the list '(A K Q J))
       true
       false)))

您可以开发(check ...)函数并删除(if ...)，因为检查将返回适合排序的值。

如果你想进一步对字母进行排序，你需要在check中比较a和b。