mbk/matrix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

line up repl commands

Browse source
This commit is contained in:
mehbark 2023-01-13 15:01:14 -05:00
parent 54b9f3bfed
commit e500d7bd5a
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/matrix/core.clj
View file

@ -134,10 +134,11 @@
((comp println #(pretty-matrix % add-bar)) m) ((comp println #(pretty-matrix % add-bar)) m)
m)) m))
(defn swap [n m] #(swap-rows % n m)) ;; repl commands
(defn add [from to] #(add-rows % from to)) (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 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 (defn apply-input
[m] [m]