如何检查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