Creating implementation for idiom 193 : Transpose a two-dimensional matrix

Idiom

# 193 Transpose a two-dimensional matrix

Created by

Lead paragraph

Declare two two-dimensional arrays a and b of dimension n*m and m*n, respectively. Assign to b the transpose of a (i.e. the value with index interchange).

New implementation

Language

Imports

Code

Documentation URL

Original attribution URL

Online runnable demo

Username

Be concise.

Be useful.

All contributions dictatorially edited by webmasters to match personal tastes.

Please do not paste any copyright violating material.

Please try to avoid dependencies to third-party libraries and frameworks.

Other implementations

(def a [[1 2 3] [4 5 6] [7 8 9]])
(def b (apply (partial mapv vector) a))

real :: a(n,m), b(m,n)

b = transpose(a)

const a = [[1, 2, 3], [4, 5, 6]]
const m = a[0].length
const b = Array.from({ length: m }, (_, n) => a.map(row => row[n]))

local a = {}

for x = 1, n do
  local t = {}
  for y = 1, m do
    t[y] = {x, y}
  end
  a[x] = t
end
  
local b = {}

for y = 1, m do
  local t = {}
  for x = 1, n do
    t[x] = a[x][y]
  end
  b[y] = t
end

uses typ, omv;

var
  A: array[1..m, 1..n] of ArbFloat;
  B: array[1..n, 1..m] of ArbFloat;
begin
  ... some code to fill A
  omvtrm(
    A[1,1], m, n, n,
    B[1,1], m
  );
end.

Doc
Origin

use PDL::Basic qw(sequence transpose);

my ($m, $n) = (3, 2);
my $A = sequence $m, $n;
my $B = transpose $A;

a = [[1,2], [3,4], [5,6]]
b = list(map(list, zip(*a)))

Origin

import numpy as np

a = np.array([[1,2], [3,4], [5,6]])
b = a.T

a = [[1,2], [3,4], [5,6]]
b = a.transpose

Preview