drop-start-same

gistfile1.clj

(defn drop-start-same
  [ss]
  (->> (loop [ss ss]
         (if (apply = (map first ss))
           (recur (map rest ss))
           ss))
       (map (partial apply str))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defn drop-start-same
  [ss]
  (let [chop-len (->> (apply map list ss)
                      (take-while (partial apply =))
                      count)
        chop (partial drop chop-len)
        cs2str (partial apply str)]
    (map (comp cs2str chop) ss)))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; examples
;;
;; (drop-start-same  ["abcdef" "abc123"])
;; ;; => ("def" "123")
;;
;; (drop-start-same ["あいさんさん" "あいどる" "あいうえお" "あいんしゅたいん"])
;; ;; => ("さんさん" "どる" "うえお" "んしゅたいん")
;;
;; (drop-start-same ["12345" "67890" "abc"])
;; ;; => ("12345" "67890" "abc")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;