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

bug: add test with custom TEST and COMBINER for COMPRESSING-RUNS

Browse Source
This commit is contained in:
Edward
2021-01-04 01:15:14 -08:00
parent ea96548eb0
commit e08fccfe1b
2 changed files with 18 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
t/transducer.lisp
View File

@ -89,7 +89,23 @@
(5am:is (equal '(1 2)
(data-lens.transducers:transduce (data-lens.transducers:compressing-runs)
'data-lens.transducers:list-builder
input)))))
input))))
(5am:is
(equal '((1 2 2 2 3 3 3)
(2 4 4 4 5 5 5)
(3 6 6 6))
(data-lens.transducers:transduce
(data-lens.transducers:compressing-runs
:test (lambda (a b) (eql (car a) (car b)))
:combiner (lambda (a b)
(if a
(append a (cdr b))
b)))
'data-lens.transducers:list-builder
'((1 2 2 2) (1 3 3 3)
(2 4 4 4) (2 5 5 5)
(3 6 6 6))))))
(5am:def-test catting (:suite :data-lens.transducers)
(5am:is (equal '(1 1 2 1 2 2 3 3 4 1)

3
transducers.lisp
View File

@ -79,14 +79,13 @@
leftovers t)
acc)
(progn (prog1 (funcall rf acc last)
(setf last (funcall combiner last next))))))
(setf last next)))))
((it)
(funcall rf
(if leftovers
(funcall rf it last)
it)))))))
(defun deduping (&optional (test 'eql))
(compressing-runs :test test))