RosettaCodeData/Task/Matrix-transposition/HicEst/matrix-transposition.hicest

8 lines
91 B
Plaintext

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