Clojure'da Haskell'in bir işlevi var mı? Haskell'de

Question

, biz Data.Function.on var:

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

Clojure, ben tanımlamak mümkün istiyorum, örneğin, bir anagram yüklem şöyle:

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

Bu uygulamaya Önemsiz:

(defn on [g f] (fn [x y] (g (f x) (f y)))) 

Ancak, işlevini gerçekleştiren tüm işlevler var. ame hedefi? Bir tane bulamıyorum.

Answer 1

Hayır, aradığınız şeyi yapan yerleşik yok.

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

Bu

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

gibi bir şey yazmanıza olanak tanır: Eğer olsa bunu hayata geçireceğiz, ben Clojure vararg desteği vardır ve currying yoksun beri, biraz daha genel olmak gelemez düşünüyorum Buile aynı işlevleri sağlamak için alışılmış yani mod kısmi uygulama biraz daha zahmetlidir, bir

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

Ancak Clojure tabii çok Haskell kolaydır

, Yapabilirsenizargs.