diff --git a/src/matrix/core.clj b/src/matrix/core.clj index 0fc2393..6fe6354 100644 --- a/src/matrix/core.clj +++ b/src/matrix/core.clj @@ -134,10 +134,11 @@ ((comp println #(pretty-matrix % add-bar)) m) m)) -(defn swap [n m] #(swap-rows % n m)) -(defn add [from to] #(add-rows % from to)) +;; repl commands +(defn swap [n m] #(swap-rows % n m)) +(defn add [from to] #(add-rows % from to)) (defn add-mul [n from to] #(add-rows-with-mul % n from to)) -(defn mul [n at] #(mul-row % n at)) +(defn mul [n at] #(mul-row % n at)) (defn apply-input [m]