coding-dojo-20110921

gistfile1.clj

; juste pour l'art

(defn primes []
  (keep :prime
    (iterate (fn [{:keys [known candidate]}] 
               (if (some #(zero? (rem candidate %)) known) 
                 {:known known :candidate (inc candidate)} 
                 {:known (conj known candidate) :candidate (inc candidate) :prime candidate}))
      {:known [] :candidate 2})))

(def primes
  (lazy-seq (cons 2 (remove (fn [candidate] (some #(zero? (rem candidate %)) (take-while #(< % candidate) primes)))
                      (iterate inc 3))))) 

L11-13 l'exemple même de code trop malin pour son propre bien : utilise la mutation de manière cachée, dépend du caractère non-chunké de (iterate inc 3).
Clojure n'est pas Haskell, la paresse ne sert pas les mêmes objectifs. En Haskell c'est à la base du contrôle du flot d'exécution, en Clojure c'est juste le "media" du traitement, comme les pipes unix.