fiddlerwoaroof/data-lens
1
0
Fork 0
mirror of https://github.com/fiddlerwoaroof/data-lens.git synced 2025-11-08 18:26:32 +00:00
Code Issues Releases Wiki Activity

feat(transducers): add lazy-sequence constructor

Browse Source
This commit is contained in:
fiddlerwoaroof
2020-12-18 22:32:19 -08:00
parent 9ff7f44684
commit cefd4fbab3
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
transducers.lisp
View File

@ -101,6 +101,8 @@
(defclass lazy-sequence () (defclass lazy-sequence ()
((%next :initarg :next :reader next))) ((%next :initarg :next :reader next)))
(defun lazy-sequence (next)
(make-instance 'lazy-sequence :next next))
(defmethod reduce-generic ((seq lazy-sequence) (func function) init) (defmethod reduce-generic ((seq lazy-sequence) (func function) init)
(let ((next (next seq))) (let ((next (next seq)))
(loop for next-val = (funcall next) (loop for next-val = (funcall next)