Sujet : Re: "Higher Order Perl" book and Lisp
De : Nobody447095 (at) *nospam* here-nor-there.org (B. Pym)
Groupes : comp.lang.lisp comp.lang.schemeDate : 02. Sep 2024, 21:48:36
Autres entêtes
Organisation : A noiseless patient Spider
Message-ID : <vb54qh$2viln$1@dont-email.me>
User-Agent : XanaNews/1.18.1.6
(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