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(on): make on more conformant with the Haskell function

Browse Source
This commit is contained in:
Edward Langley
2022-03-29 20:37:02 -07:00
parent bd9ef2fba3
commit 858bd9d2ff
1 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lens.lisp
View File

@ -269,10 +269,16 @@
(apply ,fsym ,@args ,seq))))) (apply ,fsym ,@args ,seq)))))
(defun-ct on (fun key) (defun-ct on (fun key)
"Transform arguments with KEY and then apply FUN
> (eql (funcall (on 'equal 'car)
> '(\"a\" 1 2)
> '(\"a\" 2 e))
> t)"
(let ((fun (functionalize fun)) (let ((fun (functionalize fun))
(key (functionalize key))) (key (functionalize key)))
(lambda (it) (lambda (&rest its)
(funcall fun (funcall key it))))) (funcall fun (mapcar key its)))))
(defun filler (length1 length2 fill-value) (defun filler (length1 length2 fill-value)
(if (< length1 length2) (if (< length1 length2)