Lines Matching refs:indices
11 word-indices
12 word-indices-index
197 ;; Compute the word-indices for every unicode-char.
200 (indices '()))
208 indices
213 (setf (unicode-char-word-indices uc)
214 (coerce (nreverse indices) 'vector)
217 ;; Sort the list of unicode-chars by word-indices.
234 :key #'unicode-char-word-indices
236 ;; Output the word-indices.
238 (reduce #'+ (mapcar (lambda (uc) (length (unicode-char-word-indices uc))) all-chars))
244 (coerce (unicode-char-word-indices uc) 'list)
251 (setf (unicode-char-word-indices-index uc) i)
252 (incf i (length (unicode-char-word-indices uc)))
261 (unicode-char-word-indices-index uc)
275 (unicode-char-word-indices-index uc)
287 (reduce #'max (mapcar (lambda (uc) (length (unicode-char-word-indices uc))) all-chars))
Indexes created Sun Jun 28 00:24:58 UTC 2026