Anonymous user
Word frequency: Difference between revisions
→{{header|Common Lisp}}
Line 216:
(equal x #\-))) s))
(defun pair (words &aux (hash (make-hash-table))
(dolist (word words) (incf (gethash word hash 0)))
(maphash #'(lambda (e n) (push `(,e . ,n)
</lang>
|