làm thế nào để kiểm tra nếu một đối tượng clojure là một mảng byte?

Question

Làm thế nào người ta sẽ viết hàm bytes? trả về như sau:

(bytes? [1 2 3]) ;; => false 
(bytes? (byte-array 8)) ;; => true 

Answer 1

(defn bytes? [x] 
    (if (nil? x) 
    false 
    (= (Class/forName "[B") 
     (.getClass x)))) 

Update. Câu hỏi tương tự đã được hỏi tại đây Testing whether an object is a Java primitive array in Clojure. Và google cung cấp cho chính xác trang đó về câu hỏi của bạn "làm thế nào để kiểm tra xem một đối tượng clojure là một mảng byte?" ;)

Answer 2

Cách tôi đã sử dụng để thực hiện việc này cho đến bây giờ là tạo một mảng kiểu đó và kiểm tra cho lớp đó. Để ngăn chặn việc tạo một cá thể không cần thiết mỗi lần, hãy tạo một hàm đóng trên lớp của kiểu mảng cụ thể đó.

(defn test-array 
    [t] 
    (let [check (type (t []))] 
    (fn [arg] (instance? check arg)))) 

(def byte-array? 
    (test-array byte-array)) 

=> (byte-array? (byte-array 8)) 
true 

=> (byte-array? [1 2 3]) 
false 

dụ Mobyte dường như đơn giản hơn rất nhiều mặc dù, và có vẻ như tôi sẽ có một số refactoring để làm nơi tôi sử dụng này :)