A
В общем оказалось они когда то в дурке побывали по разным причинам не продолжительное время.
И их стиль изложения порой очень похож на тот который выше. Я ни на кого не наговариваю и ни в коем случае не хотел как то обидеть.
Делюсь наблюдениями
Size: a a a
A
AI
MB
CD
Д
YK
IP
YK
VM
IG
YK
vk
ВП
ST
(defn pair? [[x y]]
(== x y))
(defn new-row [row]
(if (< (count row) 2)
row
(let [[x :as head] (subvec row 0 2)]
(if (pair? head)
(into [(* 2 x)] (new-row (subvec row 2)))
(into [x] (new-row (subvec row 1)))))))
ВП
(defn pair? [[x y]]
(== x y))
(defn new-row [row]
(if (< (count row) 2)
row
(let [[x :as head] (subvec row 0 2)]
(if (pair? head)
(into [(* 2 x)] (new-row (subvec row 2)))
(into [x] (new-row (subvec row 1)))))))
ST
(defn new-row [row]
(if (< (count row) 2)
row
(let [[x y] (subvec row 0 2)]
(if (== x y)
(into [(* 2 x)] (new-row (subvec row 2)))
(into [x] (new-row (subvec row 1)))))))
DL
(defn new-row [row]
(if (< (count row) 2)
row
(let [[x y] (subvec row 0 2)]
(if (== x y)
(into [(* 2 x)] (new-row (subvec row 2)))
(into [x] (new-row (subvec row 1)))))))
DL