Zwięzły kod Lisp, aby zastosować listę wszystkich funkcji do tych samych argumentów i uzyskać listę wartości zwracanych?

Question

Załóżmy, że mam jeden element i mam listę predykatów (funkcji). Chcę zastosować każdy z tych predykatów do pojedynczego elementu i uzyskać odpowiednią listę wartości zwracanych. Wiem, że map i znajomi mogą zastosować jedną funkcję do każdej listy argumentów, ale czy istnieje jakaś zwięzła składnia do zastosowania wielu funkcji do pojedynczego argumentu?

Oczywiście mogę zrobić

(mapcar (lambda (pred) (funcall pred SINGLE-ELEMENT)) LIST-OF-PREDICATES) 

ale byłoby miło, gdyby nie było to funkcja, która pracowała jak:

(test-predicates-against-element LIST-OF-PREDICATES SINGLE-ELEMENT) 

oczywiście mogę tylko defun, ale chciałem wiedzieć, czy istnieje akceptowana metoda robienia tego.

Answer 1

Ta operacja nie jest tak powszechna i nie ma w rzeczywistości zdefiniowanego wcześniej sposobu, poza pisaniem jej bezpośrednio, w Common Lisp. Różni ludzie lubią krótką składnię i dodają elementy syntaktyczne, które pomogłyby w takim przypadku wszystkim Lisps. W Common Lisp można napisać funkcję, która robi to, co chcemy (zamiast dodawać składnię).

(defun fmap (functions &rest args) 
    (declare (dynamic-extent args)) 
    "Applies each function to the arguments. Returns a list of results." 
    (mapcar (lambda (function) 
      (apply function args)) 
      functions)) 

CL-USER 1 > (fmap (list #'+ #'- #'* #'/) 42 17) 
(59 25 714 42/17)