palate 0.3.8

File type detection combining tft and hyperpolyglot
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13

(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)))))