9 lines
353 B
Clojure
9 lines
353 B
Clojure
|
(def grapheme-length
|
|||
|
|
#(->> (doto (java.text.BreakIterator/getCharacterInstance)
|
|||
|
|
(.setText %))
|
|||
|
|
(partial (memfn next))
|
|||
|
|
repeatedly
|
|||
|
|
(take-while (partial not= java.text.BreakIterator/DONE))
|
|||
|
|
count))
|
|||
|
|
(map grapheme-length ["møøse" "𝔘𝔫𝔦𝔠𝔬𝔡𝔢" "J\u0332o\u0332s\u0332e\u0301\u0332"]) ; (5 7 4)
|