Select Code to Download

A = [ 1 2 ]
    [ 3 4 ]
...
        [  7  8 14 16 ]
        [ 15 18 20 24 ]
        [ 21 24 28 32 ]

#!/usr/bin/perl
use strict;
use warnings;
...
    }
    return $kron;
}

[ 1 2 ]
[ 3 4 ]

[ 1 1 ]   [ 2 2 ]
[ 1 1 ]   [ 2 2 ]

[ 3 3 ]   [ 4 4 ]
[ 3 3 ]   [ 4 4 ]

[  5  6 ] [ 10 12 ]
[  7  8 ] [ 14 16 ]

[ 15 18 ] [ 20 24 ]
[ 21 24 ] [ 28 32 ]

sub kronecker_product {
    my ($x, $y) = @_;
...
        $y * $x->dummy(0, $y0)->dummy(1, $y1)
    )->xchg(1, 2)->reshape($x0 * $y0, $x1 * $y1)
}