From Newsgroup: comp.lang.scheme

(loop for i from 0 to 100 with c = 0 finally (return c) do
(loop for d across (format nil "~A" i) do (when (char= d #\5) (incf c))))

How about:

(loop for i from 0 to 100 sum (count #\5 (princ-to-string i)))

(count #\5 (format nil "~{~A~}" (loop for i to 100 collect i)))

Gauche Scheme

(use srfi-13) ;; string-count

(string-count (x->string (iota 100)) #\5)
===>
20

--- Synchronet 3.22a-Linux NewsLink 1.2