现在我必须在排序之前将hastable复制到列表中:
(defun good-red ()
(let ((tab (make-hash-table)) (res '()))
(dotimes (i 33) (setf (gethash (+ i 1) tab) 0))
(with-open-file (stream "test.txt")
(loop for line = (read-line stream nil)
until (null line)
do
(setq nums (butlast (str2lst (substring line 6))))
(dolist (n nums) (incf (gethash n tab)))
))
**(maphash #'(lambda (k v) (push (cons k v) res)) tab)**
(setq sort-res (sort res #'< :key #'cdr))
(reverse (nthcdr (- 33 18) (mapcar #'car sort-res))) ))
顺便说一下,获取列表的前N个元素的更好方法是什么?
vatiine的回答在技术上是正确的,但对于有人问这个问题的直接问题可能不是很有帮助。使用哈希表保存计数器集合,然后按分数选择前N项的常见情况如下:
;; convert the hash table into an association list
(defun hash-table-alist (table)
"Returns an association list containing the keys and values of hash table TABLE."
(let ((alist nil))
(maphash (lambda (k v)
(push (cons k v) alist))
table)
alist))
(defun hash-table-top-n-values (table n)
"Returns the top N entries from hash table TABLE. Values are expected to be numeric."
(subseq (sort (hash-table-alist table) #'> :key #'cdr) 0 n))
第一个函数以列表中的一系列cons'd对的形式返回哈希表的内容,该列表称为关联列表(键/值对的典型列表表示形式)。大多数Lisp爱好者手头已经有了这个函数的变体,因为它是一个非常常见的操作。这个版本来自Alexandria库,它在CL社区中被广泛使用。
第二个函数使用SUBSEQ从返回的列表中获取前N个项目,方法是使用每对的CDR作为键对第一个函数返回的列表进行排序。将:key更改为#'car将按散列键进行排序,将#'>更改为#'<将颠倒排序顺序。>
哈希表本身就是无序的。如果你想让它排序,你需要用内容初始化某种有序的数据结构。
如果你想获取一个序列的前N个元素,总是有SUBSEQ.