Kiểm tra xem một đối tượng có phải là một mảng nguyên thủy Java trong Clojure

Question

Cách tốt nhất để phát hiện xem một đối tượng có phải là một mảng nguyên thủy Java trong Clojure không?

Lý do tôi cần điều này là để làm một số xử lý đặc biệt đối với mảng nguyên thủy, mà có thể giống như thế:

(if (byte-array? object) 
    (handle-byte-array object)) 

Đó là trong một mảnh khá hiệu suất nhạy cảm của mã vì vậy tôi muốn tránh phản ánh nếu có thể.

Answer 1

bạn có thể sử dụng phản ánh một lần để có được lớp từ tên gọi, bộ nhớ cache này và sau đó so sánh phần còn lại cho rằng

(def array-of-ints-type (Class/forName "[I")) 
(def array-of-bytes-type (Class/forName "[B")) 
... 

(= (type (into-array Integer/TYPE [1 3 4])) array-of-ints-type) 
true 

Answer 2

(defn primitive-array? [o] 
    (let [c (class o)] 
    (and (.isArray c) 
     (.. c getComponentType isPrimitive)))) 

Đối với trường hợp cụ thể, bạn có thể sử dụng giống như sau:

(defn long-array? [o] 
    (let [c (class o)] 
    (and (.isArray c) 
     (identical? (.getComponentType c) Long/TYPE)))) 

Answer 3

Hoặc đơn giản cũ instance?:

(instance? (RT/classForName "[B") thing) 

Answer 4

Như đã chỉ bởi Arthur Ulfeldt, bạn có thể sử dụng Class/forName, ví dụ, như ở đây:

(def byte_array_class (Class/forName "[B")) 

(defn byte-array? [arr] (instance? byte_array_class arr)) 

Nếu bạn muốn tránh dây ma thuật như "[B" khi bộ nhớ đệm các lớp học, bạn có thể áp dụng class để một mảng hiện đối tượng:

(def byte_array_class (class (byte-array []))) 

Answer 5

để kiểm tra cho một mảng byte mà không cần dùng phản ánh bạn có thể làm điều này:

(def ^:const byte-array-type (type (byte-array 0))) 
(defn bytes? [x] (= (type x) byte-array-type)) 

Không chắc chắn lý do tại sao, nhưng bạn thậm chí có thể xếp loại byte-mảng với ^:const.

Answer 6

Đạo cụ cho tất cả các câu trả lời khác. Ở đây nó là như một lớp lót:

(def byte-array? (partial instance? (Class/forName "[B"))) 

Đối với nguyên thủy khác, hãy tham khảo http://docs.oracle.com/javase/7/docs/api/java/lang/Class.html#getName%28%29 (hoặc spec java). Hoặc chỉ cần làm những gì Gerrit gợi ý với (type (xyz-array 0)). Cụ thể, bạn có thể sử dụng:

"[Z" boolean array 
"[B" byte array 
"[C" char array 
"[D" double array 
"[F" float array 
"[I" integer array 
"[J" long array 
"[S" short array 

Kể từ khi thực hiện đã được đề cập, đây là một chuẩn mực kết quả nhỏ chạy (time (dotimes [_ 500000] (byte-array? x))), và với byte-array-class def'd

(def byte-array? (partial instance? (Class/forName "[B"))) 
78.518335 msecs 
(defn byte-array? [obj] (instance? byte-array-class obj)) 
34.879537 msecs 
(defn byte-array? [obj] (= (type obj) byte-array-class)) 
49.68781 msecs 

instance? vs type = dụ? thắng

partial vs defn = defn thắng

nhưng bất kỳ các phương pháp tiếp cận có thể sẽ không phải là một nút cổ chai trong hoạt động.