Function: math-reduce-vec

math-reduce-vec is an autoloaded and byte-compiled function defined in calc-vec.el.gz.

Signature

(math-reduce-vec F A)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-vec.el.gz
;;; "Reduce" a function over a vector (left-associatively).  [O X V] [Public]
(defun math-reduce-vec (f a)
  (if (math-vectorp a)
      (if (cdr a)
	  (let ((accum (car (setq a (cdr a)))))
	    (while (setq a (cdr a))
	      (setq accum (funcall f accum (car a))))
	    accum)
	0)
    a))