Chuyên về Vectơ và Ma trận

Question

Tôi đang sử dụng phổ biến-lisp cho các thử nghiệm đồ họa thời gian thực của tôi và cho đến nay nó đã được tuyệt vời. Yêu cầu của tôi về tốc độ và khả năng tương thích dễ dàng với cffi có nghĩa là tôi đang sử dụng mảng 'đã nhập'. Một khu vực của mã thực sự cảm thấy xấu xí là các phiên bản chung của các hàm toán học ma trận và vectơ của tôi. Như Clos không thể chuyên về chiều dài của một mảng Tôi đang làm một cái gì đó như thế này:

(defun v+ (vec-a vec-b) 
    (%v+ vec-a vec-b (length a) (length b))) 

(defmethod %v+ (va vb (la (eql 3)) (lb (eql 3))) 
    ***CODE HERE***) 

này hoạt động nhưng không cảm thấy đúng. Tôi đã thấy phần mở rộng để triển khai CL khác nhau và nghe về lời hứa của MOP.

Tôi đã tránh xa điều này vì tôi sợ nó sẽ phá vỡ chức năng với một số triển khai CL nhưng tôi đã thấy gần đây hơn Closer-to-Mop project.

Câu hỏi cốt lõi: MOP có cung cấp phương pháp hiệu quả hơn để chuyên về chiều dài không? Có khu vực/kỹ thuật nào tôi nên tập trung vào không?

Answer 1

Mã của bạn phù hợp với tôi và những gì bạn đang sử dụng là nhập gắn thẻ.

(defmethod v+ (vec-a vec-b) 
    (labels ((find-tag (vec) 
       (if (> (length vec) 3) 
        :more-than-3 
        :less-than-4))) 
     (%v+ vec-a vec-b (find-tag a) (find-tag b))) 

(defmethod %v+ (va vb (va-tag (eql :less-than-4)) (vb-tag (eql :less-than-4))) 
    ***CODE HERE***)