अब मैं इसे छँटाई करने से पहले एक सूची 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)))))
BTW, एक सूची के पहले एन तत्वों को लाने के लिए बेहतर तरीका क्या है?
आपका प्रश्न क्या है? शीर्षक में से एक, या सामग्री में से एक? –
क्या शीर्षक और/या टिप्पणियों में से किसी एक के जवाब देने के लिए यह अधिक रचनात्मक नहीं होगा? – Paralife