1. Forum
  2. Usenet
  3. COMP.LANG.SCHEME

  • Re: "Higher Order Perl" book and Lisp

    From B. Pym@21:1/5 to All on Mon Sep 2 19:48:36 2024
    XPost: comp.lang.lisp

    (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

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)