MP
Size: a a a
MP
MP
AR
(defn common-prefix
([a b] (common-prefix [] a b))
([acc [a & a-tail :as a-vec] [b & b-tail :as b-vec]]
(if (= a b)
(recur (conj acc a) a-tail b-tail)
[acc a-vec b-vec])))
AR
AR
TP
MP
MP
MP
MP
AR
MP
MP
AR
D
(and (= a b) a)?
D
MP
MP
S
S