如何檢查clojure中的矩陣是否爲上三角

Question

我想寫一個函數來計算矩陣的上三角特性。讓我們說a_i_j是第i行和第j列的數字。矩陣是 上三角如果對於所有i> j，a_i_j = 0。

Answer 1

嘗試這種情況：

(defn is-upper-triangular [m] 
    (->> (map-indexed vector m) 
     (mapcat (fn [[r v]] (take r v))) 
     (every? zero?))) 

上述代碼採取從第一行0元件中，從第二行1個元件，以及從第三行，等等2個元件...並檢查所有的取元素是零。如果全部爲零，則爲上三角形。

此代碼不檢查給定的矩陣是方形的。如果有必要，您可以添加此檢查。

Answer 2

upper-triangular?不是core.matrix API在又，但如果使用vectorz-clj可以在與Java互操作功能得到：

(def a (array :vectorz [[1 2] [0 4]])) 

(.isUpperTriangular a) 
=> true 

(.isUpperTriangular (transpose a)) 
=> false