Re: How to count the number of occurrences of a character in a string?

[Emanuel Berg <embe8573@student.uu.se>]

Marcin Borkowski <mbork@mbork.pl> writes:

> Should I ... use cl-count?

Why not?

(defun count-char-in-string (the-char str)
  (if (and (char-or-string-p the-char)
           (char-or-string-p str) )
      (let ((c (if (characterp the-char) the-char (string-to-char the-char))))
        (cl-count c (string-to-list str)) )
    (error "Indata verification failed.") ))

(count-char-in-string "o"  "oooiiiooo") ; 6
(count-char-in-string ?\o  "oooiiiooo") ; 6
(count-char-in-string 111  "oooiiiooo") ; 6
(count-char-in-string '(1) "oooiiiooo") ; error
(count-char-in-string "o"  '(1))        ; error

-- 
underground experts united
http://user.it.uu.se/~embe8573