Plaster
New
List
Login
common-lisp
default
anonymous
2020.05.03 20:21:48
(defmethod keywords ((document document) (document-collection document-collection)) (flet ((frob (word) (cons word (term-frequency-inverse-document-frequency document document-collection word)))) (let ((result (loop for word being the hash-keys of (word-count document) collect (frob word)))) (sort result #'> :key #'cdr))))
Raw
Annotate
Repaste
Edit