Add simple write matrix to stdout

Signed-off-by: Steve Wampler <[email protected]>

Author: StephenWampler

uni/lib/matrix_util.icn

@@ -358,3 +358,15 @@ procedure m_write(args[])   # Matrices and output files
       }
    ::write(outfile)
 end
+
+#<p>
+# A simplification of m_write() that (a) only writes a single matrix to stdout
+# and (b) allows column width specifiction for pretty-printing the matrix.
+# <[param m matrix to output]>
+# <[param w width of each column (default: 5)]>
+#</p>
+procedure writem(m,w)
+   local i
+   /w := 5
+   every i := !m do every ::writes(::right(!i,3)|"\n")
+end