Function: decipher--digram-total

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

Signature

(decipher--digram-total BEFORE-COUNT AFTER-COUNT)

Documentation

Count the number of different letters a letter appears next to.

Source Code

;; Defined in /usr/src/emacs/lisp/play/decipher.el.gz
(defun decipher--digram-total (before-count after-count)
  "Count the number of different letters a letter appears next to."
  ;; We do not include spaces (word divisions) in this count.
  (let ((total 0)
        (i 26))
    (while (>= (decf i) 0)
      (if (or (> (aref before-count i) 0)
              (> (aref after-count  i) 0))
          (incf total)))
    total))