Lines Matching refs:indices
11 word-indices
12 word-indices-index
200 ;; Compute the word-indices for every unicode-char.
203 (indices '()))
211 indices
216 (setf (unicode-char-word-indices uc)
217 (coerce (nreverse indices) 'vector)
220 ;; Sort the list of unicode-chars by word-indices.
237 :key #'unicode-char-word-indices
239 ;; Output the word-indices.
241 (reduce #'+ (mapcar (lambda (uc) (length (unicode-char-word-indices uc))) all-chars))
247 (coerce (unicode-char-word-indices uc) 'list)
254 (setf (unicode-char-word-indices-index uc) i)
255 (incf i (length (unicode-char-word-indices uc)))
266 (unicode-char-word-indices-index uc)
282 (unicode-char-word-indices-index uc)
294 (reduce #'max (mapcar (lambda (uc) (length (unicode-char-word-indices uc))) all-chars))