ВП
Size: a a a
ВП
DL
DG
(defn new-row [x & xs ] … )
DL
DL
ВП
(defn new-row [x & xs ] … )
DL
DL
ВП
ВП
DL
DL
DL
ST
(defn new-row [row]
(let [[x & [y & xs :as ys]] row]
(cond
(nil? y) row
(== x y) (into [(* 2 x)] (new-row xs))
:else (into [x] (new-row ys)))))
ST
(defn new-row [row]
(let [[x & [y & xs :as ys]] row]
(cond
(nil? y) row
(== x y) (into [(* 2 x)] (new-row xs))
:else (into [x] (new-row ys)))))
ВП
(defn new-row [row]
(let [[x & [y & xs :as ys]] row]
(cond
(nil? y) row
(== x y) (into [(* 2 x)] (new-row xs))
:else (into [x] (new-row ys)))))
ST
recur
(defn new-row [row]
(let [[x & [y & xs :as ys]] row]
(cond
(nil? y) row
(== x y) (into [(* 2 x)] (recur xs))
:else (into [x] (recur ys)))))
ВП
ST
recur
(defn new-row [row]
(let [[x & [y & xs :as ys]] row]
(cond
(nil? y) row
(== x y) (into [(* 2 x)] (recur xs))
:else (into [x] (recur ys)))))