[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/dash 1e22ef6 125/316: Merge pull request #263 from basi
From: |
ELPA Syncer |
Subject: |
[elpa] externals/dash 1e22ef6 125/316: Merge pull request #263 from basil-conto/blc/common-suffix |
Date: |
Mon, 15 Feb 2021 15:57:41 -0500 (EST) |
branch: externals/dash
commit 1e22ef6a292e91909fcb070cb362d0b69f68eb2e
Merge: 85e8f62 a6e1436
Author: Matus Goljer <dota.keys@gmail.com>
Commit: GitHub <noreply@github.com>
Merge pull request #263 from basil-conto/blc/common-suffix
Add -common-suffix
---
dash.el | 5 +++++
dev/examples.el | 17 ++++++++++++++++-
2 files changed, 21 insertions(+), 1 deletion(-)
diff --git a/dash.el b/dash.el
index 8d1d9a6..08924e2 100644
--- a/dash.el
+++ b/dash.el
@@ -2310,6 +2310,10 @@ or with `-compare-fn' if that's non-nil."
(--reduce (--take-while (and acc (equal (pop acc) it)) it)
lists))
+(defun -common-suffix (&rest lists)
+ "Return the longest common suffix of LISTS."
+ (nreverse (apply #'-common-prefix (mapcar #'reverse lists))))
+
(defun -contains? (list element)
"Return non-nil if LIST contains ELEMENT.
@@ -2904,6 +2908,7 @@ structure such as plist or alist."
"-inits"
"-tails"
"-common-prefix"
+ "-common-suffix"
"-contains?"
"-contains-p"
"-same-items?"
diff --git a/dev/examples.el b/dev/examples.el
index 05669e9..43c0ace 100644
--- a/dev/examples.el
+++ b/dev/examples.el
@@ -389,13 +389,28 @@ new list."
(defexamples -common-prefix
(-common-prefix '(1)) => '(1)
- (-common-prefix '(1 2) () '(1 2)) => ()
+ (-common-prefix '(1 2) '(3 4) '(1 2)) => ()
(-common-prefix '(1 2) '(1 2 3) '(1 2 3 4)) => '(1 2)
+ (-common-prefix () '(1 2) '(1 2)) => ()
+ (-common-prefix '(1 2) '(1 2) ()) => ()
+ (-common-prefix '(1) '(1)) => '(1)
(-common-prefix '(())) => '(())
(-common-prefix () ()) => ()
(-common-prefix ()) => ()
(-common-prefix) => ())
+ (defexamples -common-suffix
+ (-common-suffix '(1)) => '(1)
+ (-common-suffix '(1 2) '(3 4) '(1 2)) => ()
+ (-common-suffix '(1 2 3 4) '(2 3 4) '(3 4)) => '(3 4)
+ (-common-suffix () '(1 2) '(1 2)) => ()
+ (-common-suffix '(1 2) '(1 2) ()) => ()
+ (-common-suffix '(1) '(1)) => '(1)
+ (-common-suffix '(())) => '(())
+ (-common-suffix () ()) => ()
+ (-common-suffix ()) => ()
+ (-common-suffix) => ())
+
(defexamples -min
(-min '(0)) => 0
(-min '(3 2 1)) => 1
- [elpa] externals/dash 87d5fea 103/316: Merge pull request #266 from phillord/feature/travis-update, (continued)
- [elpa] externals/dash 87d5fea 103/316: Merge pull request #266 from phillord/feature/travis-update, ELPA Syncer, 2021/02/15
- [elpa] externals/dash a74f4cf 105/316: Bump version in package declaration, ELPA Syncer, 2021/02/15
- [elpa] externals/dash 8c4e27f 108/316: Implement -setq, ELPA Syncer, 2021/02/15
- [elpa] externals/dash 578428a 117/316: Add some implementation commentary to '-each-r'., ELPA Syncer, 2021/02/15
- [elpa] externals/dash 3b08355 113/316: Use version from dash.el file when generating readme., ELPA Syncer, 2021/02/15
- [elpa] externals/dash a87df31 111/316: Merge pull request #269 from magnars/feature/smart-kv-destructuring, ELPA Syncer, 2021/02/15
- [elpa] externals/dash 406f6f3 112/316: Fix whitespace, ELPA Syncer, 2021/02/15
- [elpa] externals/dash 8f90dd7 121/316: Handle empty list in -reductions[-r], ELPA Syncer, 2021/02/15
- [elpa] externals/dash 453c775 115/316: Fix -setq docstring fn reference, ELPA Syncer, 2021/02/15
- [elpa] externals/dash 85e8f62 119/316: Merge pull request #274 from magnars/doublep-each-r, ELPA Syncer, 2021/02/15
- [elpa] externals/dash 1e22ef6 125/316: Merge pull request #263 from basil-conto/blc/common-suffix,
ELPA Syncer <=
- [elpa] externals/dash 78fee36 190/316: * .dir-locals.el (sh-mode): Enforce indentation., ELPA Syncer, 2021/02/15
- [elpa] externals/dash 1d897cc 199/316: Simplify examples-to-docs a bit, ELPA Syncer, 2021/02/15
- [elpa] externals/dash 3d38fa2 213/316: Use actual dash-functional.el version in manual, ELPA Syncer, 2021/02/15
- [elpa] externals/dash 92393c7 220/316: Clean up core definitions, ELPA Syncer, 2021/02/15
- [elpa] externals/dash 3034638 232/316: Tidy up -grade-up and -grade-down a bit, ELPA Syncer, 2021/02/15
- [elpa] externals/dash 9256290 241/316: * dash.el (-->): Indent with 1 distinguished arg., ELPA Syncer, 2021/02/15
- [elpa] externals/dash 7a9c937 250/316: Translate non-printable chars in docs, ELPA Syncer, 2021/02/15
- [elpa] externals/dash 5d7077a 070/316: Set text-quoting-style, ELPA Syncer, 2021/02/15
- [elpa] externals/dash 322373a 141/316: Remove mention of Marmalade, ELPA Syncer, 2021/02/15
- [elpa] externals/dash a5706bb 144/316: More test to cover cases on different `-compare-fn`, ELPA Syncer, 2021/02/15