RE: count char in string [The Emacs Challenge Competition - round 2, with fallout]

[Drew Adams]

> cl-count? seq-count? seq-reduce? KISS!
> 
> (defun count-char-in-string (char str)
>   "Return number of occurrences of character CHAR in string STR."
>   (let ((count 0))
>     (dotimes (i (length str) count)
>       (when (eq char (aref str i))
>       (setq count (1+ count))))))

+1.

Or just (cl-incf count) at the end, if you're
loading `cl-lib.el' anyway, for other reasons.