mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 09:40:21 +00:00
14 lines
307 B
Clojure
14 lines
307 B
Clojure
(defn into-array
|
|
([aseq]
|
|
(into-array nil aseq))
|
|
([type aseq]
|
|
(let [n (count aseq)
|
|
a (make-array n)]
|
|
(loop [aseq (seq aseq)
|
|
i 0]
|
|
(if (< i n)
|
|
(do
|
|
(aset a i (first aseq))
|
|
(recur (next aseq) (inc i)))
|
|
a)))))
|