Trong Clojure, có chức năng nào giống Haskell không?

Question

Trong Haskell, chúng tôi có Data.Function.on:

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

Trong Clojure, tôi muốn để có thể xác định, ví dụ, một vị ngữ đảo chữ như sau:

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

Đó là tầm thường để thực hiện:

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

Nhưng có chức năng tích hợp nào trong số hoàn thành ame mục tiêu? Tôi dường như không thể tìm thấy.

Answer 1

Không, không có tích hợp sẵn những gì bạn đang tìm kiếm. Nếu bạn đang đi để thực hiện nó, tuy nhiên, tôi nghĩ bạn có thể đủ khả năng để được chung chung hơn một chút, vì Clojure đã hỗ trợ vararg và thiếu tách lạng bộ:

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

này cho phép bạn viết một cái gì đó giống như

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

trong đó tất nhiên là dễ dàng trong Haskell quá, như

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

Nhưng trong Clojure việc áp dụng một phần của mod là một phức tạp hơn chút, vì vậy nó là phong tục để cung cấp chức năng tương đương qua & args nếu bạn có thể.