RosettaCodeData/Task/Matrix-transposition/HicEst/matrix-transposition.hicest
2023-07-01 13:44:08 -04:00

7 lines
91 B
Text

REAL :: mtx(2, 4)
mtx = 1.1 * $
WRITE() mtx
SOLVE(Matrix=mtx, Transpose=mtx)
WRITE() mtx