problem with mat2list (8151)

[slawek39]

I wrote my own command "MAT2LIST" which is faster than the original mat2list in non-CAS program.

EXPORT MAT2LIST(m)
BEGIN
LOCAL l:={},w,k,t,i,j;
J▶j;
DIM(m)▶t;
IF SIZE(t)==2 THEN
t(1)▶w;
t(2)▶k;
FOR i FROM 1 TO w DO
CONCAT(l,MAKELIST(m(i,J),J,1,k))▶l
END
ELSE
t(1)▶k;
MAKELIST(m(J),J,1,k)▶l
END;
j▶J;
l
END;