Come si definisce una funzione all'interno di una funzione in Clojure e si fa riferimento a tale funzione?

Question

Ho scritto una funzione per calcolare la differenza simmetrica di due set (uno dei problemi sul sito 4clojure). La funzione ha superato i test unitari, ma non è pulita come vorrei, dato che ho il codice duplicato.

(fn [x y] (set (concat 
    (keep-indexed #(if (nil? (get y %2)) %2) x) 
    (keep-indexed #(if (nil? (get x %2)) %2) y)))) 

Ovviamente io preferirei qualcosa di simile:

(fn [x y] (set (concat (diff x y) (diff y x)))) 

cui è definita la funzione diff e referenziato "in linea", ma non so come fare in un blocco fn.

Answer 1

Utilizzare un let o letfn:

(fn [x y] 
    (let [diff (... function body here ...)] 
    (set 
    (concat (diff x y) (diff y x))))) 

Answer 2

Una delle caratteristiche che rende Clojure un Lisp (e un linguaggio funzionale in generale) è che funzioni sono cose di prima classe in Clojure specificamente sono oggetti. Quando si crea una funzione con (defn name [arg] ...) se si crea la funzione e poi la si archivia in una var in modo da poterla trovare più tardi da qualsiasi punto del programma. è molto simile a questa:

(def name (fn [arg] ...)) 

ora il nome contiene una funzione che è ampiamente accessibile. Le funzioni non devono essere memorizzate in vars, specialmente se sono necessarie solo all'interno della funzione. In questo caso ha più senso legare la funzione a un nome locale come con la risposta di Matt Fenwick.

(let [name (fn [agr] ...)] ...) 

la macro letfn rende più elegante. La parte importante è capire che le funzioni sono oggetti che sono archiviati nelle cose e che puoi scegliere il contenitore più adatto alle tue esigenze.