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

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