Gibt es in Clojure eine Funktion wie Haskell?

Question

In Haskell, wir Data.Function.on haben:

on :: (b -> b -> c) -> (a -> b) -> a -> a -> c 
(.*.) `on` f = \x y -> f x .*. f y 

In Clojure, ich möchte in der Lage sein zu definieren, beispielsweise ein Anagramm Prädikat wie folgt:

(defn anagram? [word other-word] 
    (and (not= word other-word) 
     ((on = sort) word other-word))) 

Es ist trivial zu implementieren:

Aber gibt es eine eingebaute Funktion , die die s bewerkstelligt ein Ziel? Ich kann nicht einen finden.

Answer 1

Nein, es gibt keine eingebaute Funktion, die das tut, wonach Sie suchen. Wenn Sie es umsetzen werden, aber ich glaube, können Sie es sich leisten, ein wenig mehr generisch zu sein, da Clojure Vararg Unterstützung hat und es fehlt currying:

(defn on 
    ([f g] 
    (fn [x y] 
     (f (g x) 
      (g y)))) 
    ([f g & args] 
    (on f #(apply g % args)))) 

Auf diese Weise können Sie so etwas wie

(defn same-parity? [x y] 
    ((on = mod 2) x y)) 

schreiben

natürlich, die in Haskell zu einfach ist, wie

sameParity :: (Integral a) => a -> a -> Bool 
sameParity = (==) `on` (`mod` 2) 

Aber in Clojure die partielle Anwendung von mod ein wenig schwieriger ist, so dass es übergleichwertige Funktionalität bereitzustellen üblich istargs wenn du kannst.