Jak mogę sprawdzić, czy funkcja jest częściowa?

Question

Czy istnieje możliwość sprawdzenia, czy coś jest funkcją częściową w Clojure?

Najlepiej mieć coś takiego jak (partial? (partial + 10))?

góry dzięki

Answer 1

Nie, ponieważ funkcje utworzone przez częściowe to tylko „normalne” funkcje. Można jednak korzystać z niektórych metadanych dla niej tak:

(defn partial2 [f & more] 
    (with-meta (apply partial f more) {:partial true})) 

(def partial-plus (partial2 + 1 2)) 

(meta partial-plus) ;;=> {:partial true} 

naprawdę nie przemyślane konsekwencje takiego podejścia mimo ...

Kotarak wymyślił ładniejszy rozwiązanie, które działa, ale nie zawsze. Na przykład wziąć to:

(partial? (partial + 1)) ;;=> true 
(partial? (partial + 1 2)) ;;=> false 

To działa:

(defn partial? [f] 
    (let [[fst snd] (-> (class f) (.getName) (string/split #"\$"))] 
    (= ["clojure.core" "partial"] [fst snd]))) 

ze stringami/Split będąc Funkcja split z clojure.string (1.3) lub clojure.contrib.str-utils2 (1.2).

Answer 2

Funkcje tworzone przez częściowe są po prostu normalnymi funkcjami, ale jeśli jesteś na to nastawiony, może coś takiego może pomóc? :

(defn partial? 
    [f] 
    (clojure.contrib.string/substring? "partial" (str (class f)))) 

Nota prawna: Nie wiem, czy coś takiego jest głupie.

Answer 3

Możesz za pomocą hackera.

user=> (let [partial-classes (map class [(partial + 1) 
             (partial + 1 2) 
             (partial + 1 2 3) 
             (partial + 1 2 3 4)])] 
     (defn partial? 
      [x] 
      (some #(instance? % x) partial-classes))) 
#'user/partial? 
user=> (partial? (partial - 1)) 
true 
user=> (partial? (partial - 1 2)) 
true 
user=> (partial? (partial - 1 2 3)) 
true 
user=> (partial? (apply partial - 1 2 [3 4 5])) 
true 

EDIT: Poprawiono zgodnie z komentarzem Michiel użytkownika. To, że musisz znać innards of partial, potwierdza hackowatą naturę.