Clojure'da, anonim bir işlev içinde anonim bir işlev tanımlamak mümkün mü?

Question

Örneğin, aşağıdaki sorunu

http://projecteuler.net/problem=5

çözme ben

(defn div [n] (= 0 (reduce + (map #(mod n %) (range 1 21))))) 
(take 1 (filter #(= true (div %)) (range 20 1e11 20))) 

İçine anonim fonksiyon olarak ilk satırı birleştirmek isteyen bazı golf eğlence için varsayalım aşağıdaki çözüm geldi ikinci çizgi. Dil bunu destekliyor mu?

Answer 1

Evet öyle, ancak #() okuyucu-makro formlarını yerleştiremezsiniz, (fn) formunu kullanmanız gerekir. Örneğin

: Dış anonim fonksiyonların argüman başvurmak için hiçbir yolu yoktur, çünkü

(#(#(+ %1 %2) 1) 2) 

, çalışmıyor. Bu, iki argüman alan dış fonksiyon ve sıfır argümanları alan iç fonksiyon olarak okunur.

Ama (fn...) s ile aynı şeyi yazabilirsiniz:

user=> (#((fn [x] (+ x %)) 1) 2) 
3 

Yani satır içine alabilirsiniz: Ayrıca, örneğin iki anonim işlevlerinden biri için #() formu kullanabilirsiniz

user=> (((fn [x] (fn [y] (+ x y))) 1) 2) 
3 

div bu şekilde çalışır (#() formunu map formuna geçirmemiz gerektiğine dikkat edin).

#(= true (= 0 (reduce + (map (fn [x] (mod % x)) (range 1 21))))) 

Answer 2

Sen (daha hızlı x2!) Çok daha basit ve daha verimli bir şekilde çözüm yazabilirsiniz

(defn div [n] (every? #(= 0 (mod n %)) (range 1 21))) 
(take 1 (filter div (range 20 1e11 20))) 

o every? tüm listeyi çapraz ziyade durdurmaz çünkü daha verimli olmasının nedenini Listenin elemanlarından biri yanlış olduğunda.