Blob

Date:
Message:
Import sources
Actions:
History | Blame | Raw File
1 (defun accumulate-n (op init seqs)

2   (if (null (car seqs))

3       nil

4       (cons (accumulate op init (mapcar #'car seqs