procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Improve performance of seq-union

Browse source 
* lisp/emacs-lisp/seq.el (seq-union): Improve performance by using
nreverse instead of seq-reverse.
This commit is contained in:
Stefan Kangas 2021-09-17 14:01:20 +02:00
parent 0bdd6488fc
commit 3e5298fc96
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/emacs-lisp/seq.el
View file

@ -471,13 +471,13 @@ negative integer or 0, nil is returned."
(cl-defgeneric seq-union (sequence1 sequence2 &optional testfn)
"Return a list of all elements that appear in either SEQUENCE1 or SEQUENCE2.
Equality is defined by TESTFN if non-nil or by `equal' if nil."
(let ((accum (lambda (acc elt)
(if (seq-contains-p acc elt testfn)
acc
(cons elt acc)))))
(seq-reverse
(seq-reduce accum sequence2
(seq-reduce accum sequence1 '())))))
(let* ((accum (lambda (acc elt)
(if (seq-contains-p acc elt testfn)
acc
(cons elt acc))))
(result (seq-reduce accum sequence2
(seq-reduce accum sequence1 '()))))
(nreverse result)))
;;;###autoload
(cl-defgeneric seq-intersection (sequence1 sequence2 &optional testfn)