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: curried equality

Browse Source
This commit is contained in:
Ed L
2020-09-30 17:05:29 -07:00
parent 800a03e0c6
commit 1dcfeff5de
2 changed files with 11 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
data-lens.asd
View File

@ -1,5 +1,8 @@
(asdf:defsystem #:data-lens (asdf:defsystem #:data-lens
:description "Utilities for building data transormations from composable functions, modeled on lenses and transducers" :description #.(format nil "~a ~a ~a"
"Utilities for building data transormations from"
"composable functions, modeled on lenses and"
"transducers")
:author "Edward Langley <el-cl@elangley.org>" :author "Edward Langley <el-cl@elangley.org>"
:license "MIT" :license "MIT"
:depends-on (:cl-ppcre :depends-on (:cl-ppcre

9
lens.lisp
View File

@ -234,8 +234,9 @@ contain the new value at the location focused by the lens."
#:compress-runs #:combine-matching-lists #:sorted #:applicable-when #:compress-runs #:combine-matching-lists #:sorted #:applicable-when
#:of-length #:of-min-length #:of-max-length #:transform-head #:of-length #:of-min-length #:of-max-length #:transform-head
#:maximizing #:zipping #:applying #:splice-elt #:transform-elt #:denest #:maximizing #:zipping #:applying #:splice-elt #:transform-elt #:denest
#:op #:defalias #:<> #:<>1 #:op #:defalias #:<> #:<>1 #:== #:•
#:•)) ))
(in-package :data-lens) (in-package :data-lens)
@ -275,6 +276,10 @@ contain the new value at the location focused by the lens."
when (equal key a-key) do when (equal key a-key) do
(return (car value))))))) (return (car value)))))))
(defun-ct == (target &key (test 'eql))
(lambda (v)
(funcall test target v)))
(defun-ct deduplicate (&optional (test 'eql)) (defun-ct deduplicate (&optional (test 'eql))
(lambda (it) (lambda (it)
(remove-duplicates it :test test))) (remove-duplicates it :test test)))