simple-challenge.clj

(defn preffix [& args]
  (map first (take-while (partial apply =) (apply map vector args))))

(defn suffix-with-p [s p]
  (drop (count p) s))

(defn nice-print [col]
  (println (count col) (apply str col)))

(defn *nice-print [& args]
  (doseq [n args]
    (nice-print n)))

(defn doit [a b]
  (let [p  (preffix a b)
        a' (suffix-with-p a p)
        b' (suffix-with-p b p)]
    (*nice-print p a' b')))

(doit (read-line) (read-line))