Clojurians Log v2
Clojure programming
Channels
Apps
code-reviews 2020-10-30
(defn ->char-strings [str]
(let [iter (doto (BreakIterator/getCharacterInstance)
(.setText str))]
(loop [start (.first iter)
res []]
(let [end (.next iter)]
(if (= end BreakIterator/DONE)
res
(recur
end
(conj res (subs str start end))))))))
Ben Sless 2020-10-30T13:05:49.048700Z
Some really minor stuff, like see if you can use identical? instead of = in (= end BreakIterator/DONE) , or make res transient inside the loop, but these are all optimizations
❤️ 1
Thanks Ben. Noob q: what do you mean by make res transient inside the loop?
Ben Sless 2020-10-30T15:47:31.049200Z
like so:
(defn ->char-strings [str]
(let [iter (doto (BreakIterator/getCharacterInstance)
(.setText str))]
(loop [start (.first iter)
res (transient [])]
(let [end (.next iter)]
(if (= end BreakIterator/DONE)
(persistent! res)
(recur
end
(conj! res (subs str start end))))))))