Come posso verificare se la funzione è parziale?

Question

Esiste la possibilità di verificare se qualcosa è una funzione parziale in Clojure?

Sarebbe meglio avere qualcosa come (partial? (partial + 10))?

Grazie in anticipo

Answer 1

No, perché le funzioni create da parziale sono solo le funzioni "normali". Si potrebbe comunque utilizzare alcuni metadati per esso, come questo:

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

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

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

non hanno veramente pensato alle conseguenze di questo approccio anche se ...

Kotarak si avvicinò con una soluzione più bello che funziona, ma non sempre. Ad esempio prendere questo:

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

funziona:

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

con stringa/split essendo la funzione split da clojure.string (1.3) o clojure.contrib.str-utils2 (1.2).

Answer 2

Le funzioni create da partial sono solo funzioni normali, ma se si è decisi a farlo, forse qualcosa del genere potrebbe essere d'aiuto? :

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

Disclaimer: Non so se qualcosa del genere sia infallibile.

Answer 3

È possibile con un hack.

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: fissato in base al commento di Michiel. Che devi sapere le viscere di partial conferma la natura hacky.