Jak zdefiniować funkcję w funkcji w Clojure i odwołać się do tej funkcji?

Question

Napisałem funkcję do obliczenia symetrycznej różnicy dwóch zestawów (jeden z problemów na stronie 4clojure). Funkcja przeszła testy jednostkowe, ale nie jest tak czysta, jak bym chciał, biorąc pod uwagę, że mam zduplikowany kod.

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

Oczywiście wolałbym coś takiego:

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

Jeżeli funkcja diff jest zdefiniowany i odwoływać "inline", ale nie wiem, jak to zrobić w jednym bloku fn.

Answer 1

Użyj let lub letfn:

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

Answer 2

Jedną z cech, które sprawia, że ​​Clojure LISP (i język funkcjonalny w ogóle) jest to, że funkcje są pierwszej klasy rzeczy w Clojure specjalnie one są obiektami. Po utworzeniu funkcji z (defn name [arg] ...), jeśli kompiluje funkcję, a następnie zapisuje ją w var, dzięki czemu można ją później znaleźć w dowolnym miejscu w programie. to bardzo dużo:

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

teraz nazwa zawiera funkcję, która jest szeroko dostępna. Funkcje nie muszą być przechowywane w partiach, zwłaszcza jeśli są one potrzebne tylko w ramach funkcji. W takim przypadku bardziej sensowne jest powiązanie funkcji z lokalną nazwą, tak jak w przypadku odpowiedzi Matta Fenwicka.

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

letfn makro sprawia, że ​​to bardziej eleganckie. Ważną częścią jest zrozumienie, że funkcje są obiektami, które są przechowywane w rzeczach, i możesz wybrać pojemnik, który odpowiada Twoim potrzebom.