Hi, Am 16.10.2008 um 23:36 schrieb Tom Emerson:
I'd like to solicit comments on better ways I could have written it:
(defn- split-line
[line]
(let [parts (seq (.split line ":"))]
(loop [mills (drop 1 parts)
result (list (first parts))]
(if (nil? mills)
(reverse result)
(recur (drop 2 mills) (conj result (take 2 mills)))))))
(defn split-line
[line]
(let [parts (. line split ":")]
(list*
(first parts)
(partition 2 (rest parts)))))
Sincerely
Meikel
smime.p7s
Description: S/MIME cryptographic signature
