Generator/Exponential: Difference between revisions
Content added Content deleted
(→{{header|Common Lisp}}: -prog1) |
|||
Line 590: | Line 590: | ||
(defun power-seq (n) |
(defun power-seq (n) |
||
(let ((x 0)) |
(let ((x 0)) |
||
(lambda () |
(lambda () (expt (incf x) n)))) |
||
(defun filter-seq (s1 s2) ;; remove s2 from s1 |
(defun filter-seq (s1 s2) ;; remove s2 from s1 |