Blob

Date:
Message:
Import sources
Actions:
History | Blame | Raw File
1 (defun product (term a next b)

2   (if (> a b)

3       1

4     (* (funcall term a)

5        (product term (funcall next a) next b))))