Czy to idiomatyczne Clojure?

Question

Zacząłem robić Projekt Euler za pomocą Clojure, jako pierwsze narzędzie do nauki Clojure. Mam rozwiązać pierwszą Zadanie:

Znajdź sumę wszystkich wielokrotności 3 lub 5 poniżej 1000.

ja wcześniej rozwiązać go w Pythonie:

sum(i for i in xrange(1000) if i%3==0 or i%5==0) 

To jest moja pierwsza próba Clojure:

(reduce + 
    (filter 
    (fn [x] 
     (or 
     (= 0 (mod x 3)) 
     (= 0 (mod x 5)))) 
    (range 1000))) 

Jestem naprawdę zaskoczona, jak bardzo było to pełne, ale ja Jestem pewien, że to ze względu na mój styl i nieznajomość idiomów Clojure.

Jak wyglądałaby idiomatyczna wersja tego kodu Clojure?

Answer 1

To jak to zrobiłem:

(apply + 
    (filter #(or (zero? (mod % 3)) 
       (zero? (mod % 5))) 
    (range 1000))) 

Co sprawia, że ​​moje rozwiązanie nieznacznie więcej idiomatyczne jest wykorzystanie anonimowego makro czytnika funkcja, #(...) i zero?fn

Twoje rozwiązanie jest inny, ale tak samo jak dobry!

BTW - rozwiązywanie problemów eulera to świetny sposób na naukę nowego języka - nie można uzyskać wszystkiego z książki.

Edit:

postanowiłem zapewnić inne rozwiązanie bardziej inline z twoją wersją Pythona (niezbyt ładna IMO)

(apply + 
    (for [i (range 1000) :when (or (zero? (mod i 3)) 
           (zero? (mod i 5)))] 
    i)) 

Answer 2

kolejną wersją:

(defn sum-of [n] 
    (reduce + (range n 1000 n))) 

(+ (sum-of 3) (sum-of 5) (- (sum-of 15))) 

Answer 3

I jak próbować rozwiązać ogólne rozwiązanie dla rzeczy Projekt Euler, więc oto moje ogólne rozwiązanie:

(defn sum-multiples [nums lim] 
    (reduce 
    + 
    (filter 
    (fn [x] 
     (some identity 
      (map #(zero? (mod x %)) nums))) 
    (range lim)))) 

a potem po prostu zadzwonić:

(sum-multiples [3 5] 1000)