Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
coding-dojo-20110921
; 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)))))
@cgrand

This comment has been minimized.

Copy link
Owner Author

cgrand commented Sep 23, 2011

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.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.