Matrix transposition: Difference between revisions

Content added Content deleted

Inline

@@ Line 86: / Line 86: @@
 m = 10
 n = 10
-loop, 10
+Loop, 10
 {
   i := A_Index - 1
-  loop, 10
+  Loop, 10
   {
-	j := A_Index - 1
+    j := A_Index - 1
-	%a%%i%%j% := i - j
+    %a%%i%%j% := i - j
   }
 }
@@ Line 98: / Line 98: @@
 transpose("a", m, n)
 after := matrix_print("a", m, n)
-msgbox % before . "`ntransposed:`n" . after
+MsgBox % before . "`ntransposed:`n" . after
+Return
-return
 transpose(a, m, n)
 {
-local i, j, row, matrix
+  Local i, j, row, matrix
-loop, % m
+  Loop, % m
-{
+  {
-  i := A_Index - 1
+    i := A_Index - 1
-  loop, % n
+    Loop, % n
     {
-	j := A_Index - 1
+      j := A_Index - 1
-	temp%i%%j% := %a%%j%%i%
+      temp%i%%j% := %a%%j%%i%
+    }
-	}
-}
+  }
+  Loop, % m
+  {
-loop, % m
+    i := A_Index - 1
-{
-  i := A_Index - 1
+    Loop, % n
-  loop, % n
     {
-	j := A_Index - 1
+      j := A_Index - 1
-	%a%%i%%j% := temp%i%%j%
+      %a%%i%%j% := temp%i%%j%
+    }
-	}
-}
+  }
 }
 matrix_print(a, m, n)
 {
-local i, j, row, matrix
+  Local i, j, row, matrix
-loop, % m
+  Loop, % m
-{
+  {
-  i := A_Index - 1
+    i := A_Index - 1
-  row := ""
+    row := ""
-  loop, % n
+    Loop, % n
     {
-	j := A_Index - 1
+      j := A_Index - 1
-	row .= %a%%i%%j% . ","
+      row .= %a%%i%%j% . ","
+    }
-	}
-	stringtrimright, row, row, 1
+    StringTrimRight, row, row, 1
-	matrix .= row . "`n"
+    matrix .= row . "`n"
-}
+  }
-return matrix
+  Return matrix
 }</lang>
 =={{header|BASIC}}==
 {{works with|QuickBasic|4.5}}