Question

我是Racket的新手，我正在尝试定义一个能够对哈希表进行排序的函数sort-mail。

我有一些已定义的列表：

(define test-dates
    '("Sun, 10 Sep 2017 09:48:44 +0200"
      "Wed, 13 Sep 2017 17:51:05 +0000"
      "Sun, 10 Sep 2017 13:16:19 +0200"
      "Tue, 17 Nov 2009 18:21:38 -0500"
      "Wed, 13 Sep 2017 10:40:47 -0700"
      "Thu, 14 Sep 2017 12:03:35 -0700"
      "Wed, 18 Nov 2009 02:22:12 -0800"
      "Sat, 09 Sep 2017 13:40:18 -0700"
      "Tue, 26 Oct 2010 15:11:06 +0200"
      "Tue, 17 Nov 2009 18:04:31 -0800"
      "Mon, 17 Oct 2011 04:15:12 +0000"
      "Sun, 16 Oct 2011 23:12:02 -0500"
      "Mon, 11 Sep 2017 14:41:12 +0100"))

   (define sorted-dates
    '("Tue, 17 Nov 2009 18:04:31 -0800"
      "Tue, 17 Nov 2009 18:21:38 -0500"
      "Wed, 18 Nov 2009 02:22:12 -0800"
      "Tue, 26 Oct 2010 15:11:06 +0200"
      "Sun, 16 Oct 2011 23:12:02 -0500"
      "Mon, 17 Oct 2011 04:15:12 +0000"
      "Sat, 09 Sep 2017 13:40:18 -0700"
      "Sun, 10 Sep 2017 09:48:44 +0200"
      "Sun, 10 Sep 2017 13:16:19 +0200"
      "Mon, 11 Sep 2017 14:41:12 +0100"
      "Wed, 13 Sep 2017 10:40:47 -0700"
      "Wed, 13 Sep 2017 17:51:05 +0000"
      "Thu, 14 Sep 2017 12:03:35 -0700"))

该函数应该通过此测试。

(module+ test       
  (define test-hashes (map (lambda (x) (hasheq 'Date x)) test-dates))       
  (define sorted-hashes (map (lambda (x) (hasheq 'Date x)) sorted-dates))     
  (check-equal? (sort-mail test-hashes) sorted-hashes))

那么，我怎么开始呢？我发现Racket中的哈希表非常困难。我想过使用sort函数，但它猜测它不会将哈希表作为参数。

Answer 1

哈希表本质上是排序的。通过设计，它们通过将唯一键映射到索引来允许（理论上）即时查找时间。因此，没有排序机制可以对哈希映射进行操作，因为没有必要。如果您尝试将键值对聚合到列表中，然后排序，那肯定是可能的。

hash-keys将返回表中的键列表。 hash-values将返回表中的值列表。

可以对这些列表进行排序。您还可以将每个列表的每个元素组合在一起（因此键值对列表）。请尝试以下方法：

(define h (make-immutable-hash
   (list (cons 1 2)
         (cons 3 4)
         (cons 5 6)
         (cons 7 8))))


(define (pair-up key value)
   (list key value))

(map pair-up (hash-keys h) (hash-values h))  

; Alternative to above, where pair-up is essentially defined inside.  
(map (lambda (key value) (list key value)) (hash-keys h) (hash-values h))

在Racket中对哈希表进行排序

1 个答案: