1. Forum
  2. USENET
  3. comp.lang.lisp

  • Re: do inside a do

    From B. Pym@Nobody447095@here-nor-there.org to comp.lang.lisp on Wed Jul 23 06:47:12 2025
    From Newsgroup: comp.lang.lisp

    Kaz Kylheku wrote:

    (incf count
    (loop for n from sl to el
    summing
    (loop for k from sc to ec
    counting (eql (give-numnber array n k) number))))

    Gauche Scheme

    (use srfi-42) ;; sum-ec

    Untested.

    (inc! count
    (sum-ec (:range n sl (+ 1 el)) (:range k sc (+ 1 ec))
    (if (= number (give-number array n k)))
    1))
    --
    [T]he problem is that lispniks are as cultish as any other devout group and basically fall down frothing at the mouth if they see [heterodoxy].
    --- Kenny Tilton
    The good news is, it's not Lisp that sucks, but Common Lisp. --- Paul Graham --- Synchronet 3.21a-Linux NewsLink 1.2