Sujet : Re: applying macros
De : Nobody447095 (at) *nospam* here-nor-there.org (B. Pym)
Groupes : comp.lang.lisp comp.lang.schemeDate : 19. Sep 2024, 09:32:45
Autres entêtes
Organisation : A noiseless patient Spider
Message-ID : <vcgk2r$g35t$1@dont-email.me>
User-Agent : XanaNews/1.18.1.6
Rainer Joswig wrote:
(defun average-function (list)
(assert list (list)
"List should not be empty.")
(loop for i from 0
for item in list
sum item into result
finally (return (/ result i))))
It's shorter in Gauche Scheme.
(define (average-function lst)
(let1 n 0
(/ (fold (lambda (x sum) (inc! n) (+ x sum)) 0 lst)
n)))