8 lines
134 B
Tcl
8 lines
134 B
Tcl
set mat {
|
|
{1 2 3 4}
|
|
{4 5 6 7}
|
|
{7 8 9 10}
|
|
{10 11 12 13}
|
|
}
|
|
puts [::math::linearalgebra::det $mat]
|
|
puts [permanent $mat]
|