読み込んだ２つの整数値の大きい方の値を返す関数

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

読み込んだ２つの整数値の大きい方の値を返す関数

Perl

sub maxof
{
    ($x, $y) = @_;
    return ($x > $y) ? $x : $y;
}
print "２つの整数を入力してください。\n";

print "整数１：";
chomp($n1 = <>);

print "整数２：";
chomp($n2 = <>);

printf("大きいほうの値は%dです。\n", &maxof($n1, $n2));

実行結果

L:\>perl lesson_06_043.pl

２つの整数を入力してください。

整数１：83

整数２：45

大きいほうの値は83です。