Есть ли функция обратного отображения?

Question

В clojure вы можете сопоставить функцию с последовательностями значений. Есть ли встроенная функция для сопоставления одного значения в качестве параметра последовательности функций?

(map inc [1 2 3 4]) 
; -> (2 3 4 5) 

(reverse-map [inc dec str] 1) 
; -> (2 0 "1") 

(reverse-map [str namespace name] :foo/bar/baz) 
; -> (":foo/bar/baz" "foo/bar" "baz") 

Answer 1

juxt Там же, который немного похож. Он выполняет ряд функций и возвращает тот, который передает свои аргументы (ы) каждой из функций и возвращает вектор возвращаемых значений. Итак:

> ((apply juxt [inc dec str]) 1) 
[2 0 "1"] 

Основное отличие состоит в том, что он создает вектор, который, конечно, нетерпеливого оригинальный map создает последовательность, которая является ленивым (т.е. не лень.).

juxt также работает на функции, которые имеют более 1 аргумент:

> ((apply juxt [*/-]) 6 2) 
[12 3 4] 

Answer 2

Не уверен, что, если есть один, но это довольно легко реализовать:

(def reverse-map (fn [l value] (map #(% value) l))) 

Answer 3

Я бы сказал, использование juxt если лень не является необходимым, особенно из-за его способности сочинять. Однако простой вариант вашей обратной карты для полиадических функций, которая использует карту и повторить, что и ленивы, будет выглядеть следующим образом:

(defn reverse-map 
    [fcoll & args] 
    (map apply fcoll (repeat args))) 

=> (reverse-map [inc dec str] 1) 
(2 0 "1") 
=> (reverse-map [*/-] 6 2) 
(12 3 4) 

Хорошо, просто бросить в идее, вот версия с тем же композитоспособность juxt. И это даже кажется be lazy!

(defn lazy-juxt 
    [& funs] 
    (fn [& args] 
    (map apply funs (repeat args)))) 

=> ((juxt inc dec str) 1) 
[2 0 "1"] 
=> ((lazy-juxt inc dec str) 1) 
(2 0 "1") 

=> ((juxt */-) 6 2) 
[12 3 4] 
=> ((lazy-juxt */-) 6 2) 
(12 3 4)