gistfile1.clj

(def fibs 
  (concat (lazy-seq [0 1]) (lazy-seq (map + fibs (rest fibs)))))

;fibs: 0 1 1 2 3 5 8...
;rest: n 0 1 1 2 3 5
;res:  0 1 2 3 5 8

; A
;[0 1
;    (map + [0 1] [1]) => [0 1]
;     (map + [0 1 1] [1 1]) => [0 1 1 2]
;      (map + [0 1 1 2] [1 1 2]) => [0 1 1 2 3]
;       (map + [0 1 1 2 3] [1 1 2 3] => [0 1 1 2 3 5]

; B
;[0 1 
;     (map + [0 1] [1]) => 1
;       (map + [1 1] [1]) => 2
;        (map + [1 2] [2]) => 3
;          (map + [2 3] [3] => 5