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

[Emanuel Berg]

Corwin Brust wrote:

> (defun count-char-in-string (string char)
>      "Return the number of occurances of CHAR in STRING."
>      (seq-count (apply-partially 'eq char)
>             (seq-into string 'list)))

OK, that looks better than mine so I take it. But you have to
require seq or the byte compiler will complain.

(require 'seq)

(defun count-char-in-string (string char)
  (seq-count (apply-partially 'eq char) (seq-into string 'list)) )

;; (count-char-in-string "Emacs skills kills" ?a) ; 1

> (count-char-in-string "hii" ?I) ;; ⇒ 2

That's 0 :) because it is case sensitive (as it should)

-- 
underground experts united
http://user.it.uu.se/~embe8573
https://dataswamp.org/~incal