From Newsgroup: comp.lang.lisp

Kenny Tilton wrote:

Geoffrey King wrote:

(apply #'+ '( 1 2 3))

True enough, but the OP asked about a vector.

(loop for x across #(1 2 3) summing x)

Gauche Scheme

(use scheme.vector) ;; vector-fold

(vector-fold + 0 #(2 3 4))

Another way:

(use gauche.sequence)
(fold + 0 #(2 3 4))
--- Synchronet 3.21d-Linux NewsLink 1.2