webinar 2 Clojure

webinar2.clj

(do

(def ones
  (lazy-seq (cons 1 ones)))
(prn (take 10 ones))



(defn intfrom [n]
  (lazy-seq (cons n (intfrom (+ 1 n)))))
(prn (take 10 (intfrom 1)))



(print "\nчисла Фибоначчи:\n")

(def fibs (cons 0 
  (lazy-seq (cons 1 (map + (rest fibs) fibs)))))

(prn (take 50 fibs))



(print "\nчисла Хэмминга:\n")

(defn s-merge [a b]
  (lazy-seq 
    (let [ha (first a) hb (first b)]
      (cond
        (< ha hb) (cons ha (s-merge (rest a) b))
        (> ha hb) (cons hb (s-merge a (rest b)))
        :else     (cons ha (s-merge (rest a) (rest b)))))))

(def hamm
  (lazy-seq
    (->> (map #(*' 2 %) hamm)
         (s-merge (map #(*' 3 %) hamm))
         (s-merge (map #(*' 5 %) hamm))
         (cons 1))))

(prn (take 50 hamm))


)