Matrix transposition: Difference between revisions

m
→‎{{header|AutoHotkey}}: Minor indentation and casing edit
(+ AutoHotkey)
m (→‎{{header|AutoHotkey}}: Minor indentation and casing edit)
Line 86:
m = 10
n = 10
loopLoop, 10
{
i := A_Index - 1
loopLoop, 10
{
j := A_Index - 1
%a%%i%%j% := i - j
}
}
Line 98:
transpose("a", m, n)
after := matrix_print("a", m, n)
msgboxMsgBox % before . "`ntransposed:`n" . after
Return
return
 
transpose(a, m, n)
{
local Local i, j, row, matrix
loop Loop, % m
{
i := A_Index - 1
loop Loop, % n
{
j := A_Index - 1
temp%i%%j% := %a%%j%%i%
}
}
}
loopLoop, % nm
 
{
loop, % m
i := A_Index - 1
{
i := A_IndexLoop, -% n 1
loop, % n
{
j := A_Index - 1
%a%%i%%j% := temp%i%%j%
}
}
}
}
 
matrix_print(a, m, n)
{
local Local i, j, row, matrix
loop Loop, % m
{
i := A_Index - 1
row := ""
loop Loop, % n
{
j := A_Index - 1
row .= %a%%i%%j% . ","
}
}
stringtrimright StringTrimRight, row, row, 1
matrix .= row . "`n"
}
return Return matrix
}</lang>
 
=={{header|BASIC}}==
{{works with|QuickBasic|4.5}}