多次元配列の受け渡し

明解Ｃ言語 入門編 > 6. 関数 >

多次元配列の受け渡し

Perl

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

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

&mat_add(\@ma, \@mb, \@mc);

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

実行結果

L:\>perl lesson_06_051.pl

  7  5  7

  9  6  8