Select Code to Download

sub kronecker_product {
    my ($x, $y) = @_;
...
             -> clump( 0, 2 )
             -> clump( 1, 2 )
}

use PDL::NiceSlice;

...
        -> clump( 0, 2 )
        -> clump( 1, 2 )
}