add mapped

2 files changed, 7 insertions, 0 deletions

diff --git a/hofs.lisp b/hofs.lisp
index 71720ec..7f7afce 100644
--- a/hofs.lisp
+++ b/hofs.lisp
@@ -21,3 +21,9 @@ PRED, THEN, and ELSE are  assumed to accept the same arguments."
           when (apply pred args)
             return (apply fn args))))
 
+(defun mapped  (fn1 &rest fns)
+  "Return a function the arguments of which are applied to (FN1 . FNS),
+returning a list of return values."
+  (lambda (&rest args)
+    (loop :for fn :in (cons fn1 fns)
+          :collect (apply fn args))))
diff --git a/package.lisp b/package.lisp
index 2db36f3..45c1374 100644
--- a/package.lisp
+++ b/package.lisp
@@ -3,5 +3,6 @@
 (defpackage #:lambda-riffs
   (:use #:cl)
   (:export #:closure
+           #:mapped
            #:lambda-if
            #:lambda-cond))