Source
clojure/contrib/pprint/utilities.clj:75
top
(defn ltrim [s c]
"Trim all instances of c from the beginning of sequence s"
(let [len (count s)]
(if (and (pos? len) (= (nth s 0) c))
(loop [n 0]
(if (or (= n len) (not (= (nth s n) c)))
(subs s n)
(recur (inc n))))
s)))
Comments top
No comments for ltrim. Log in to add a comment.