２行３列の行列を加算する (多次元配列)

明解Ｃ言語 入門編 > 5. 配列 >

２行３列の行列を加算する (多次元配列)

Perl

@ma  = ([1, 2, 3], [4, 5, 6]);
@mb  = ([6, 3, 4], [5, 1, 2]);
@mc  = ([], []);

foreach $i(0..1)
{
    foreach $j(0..2)
    {
        printf("%3d", $mc[$i][$j]);
    }
    print "\n";
}

foreach $i(0..1)
{
    foreach $j(0..2)
    {
        $mc[$i][$j] = $ma[$i][$j] + $mb[$i][$j];
    }
}

foreach $i(0..1)
{
    foreach $j(0..2)
    {
        printf("%3d", $mc[$i][$j]);
    }
    print "\n";
}

実行結果

L:\>perl lesson_05_037.pl

  0  0  0

  0  0  0

  7  5  7

  9  6  8