更短的变种:
(defn process [^String s]
(group-by #(.charAt s %) (range (count s))))
user> (process "asdasdasd")
;;=> {\a [0 3 6], \s [1 4 7], \d [2 5 8]}
Run Code Online (Sandbox Code Playgroud)
注意这里的索引是排序的
| 归档时间: |
|
| 查看次数: |
97 次 |
| 最近记录: |