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

Add seq-set-equal-p to test for set equality

Browse source 
* lisp/emacs-lisp/seq.el (seq-set-equal-p): Add function to compare
  two lists as if they were sets.

* test/lisp/emacs-lisp/seq-tests.el (test-seq-set-equal-p): Add test
  for seq-set-equal-p.
This commit is contained in:
Damien Cassou 2017-04-17 11:01:39 +02:00 • committed by Nicolas Petton
parent 250d24fa73
commit 88f96e69cf
4 changed files with 61 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -355,6 +355,12 @@ Equality is defined by TESTFN if non-nil or by `equal' if nil."
e))
sequence))
(cl-defgeneric seq-set-equal-p (sequence1 sequence2 &optional testfn)
"Return non-nil if SEQUENCE1 and SEQUENCE2 contain the same elements, regardless of order.
Equality is defined by TESTFN if non-nil or by `equal' if nil."
(and (seq-every-p (lambda (item1) (seq-contains sequence2 item1 testfn)) sequence1)
(seq-every-p (lambda (item2) (seq-contains sequence1 item2 testfn)) sequence2)))
(cl-defgeneric seq-position (sequence elt &optional testfn)
"Return the index of the first element in SEQUENCE that is equal to ELT.
Equality is defined by TESTFN if non-nil or by `equal' if nil."