Function: decipher--digram-counts

decipher--digram-counts is a byte-compiled function defined in decipher.el.gz.

Signature

(decipher--digram-counts COUNTS)

Documentation

Generate the counts for an adjacency list.

Source Code

;; Defined in /usr/src/emacs/lisp/play/decipher.el.gz
(defun decipher--digram-counts (counts)
  "Generate the counts for an adjacency list."
  (let ((total 0))
    (concat
     (mapconcat (lambda (x)
                  (cond ((> x 99) (incf total) "XX")
                        ((> x 0)  (incf total) (format "%2d" x))
                        (t        "  ")))
                counts
                "")
     (format "%4d" (if (> (aref counts 26) 0)
                       (1- total)    ;Don't count space
                     total)))))