エリア最大数Perlの配列

課題です。 Perlのプログラムの配列 @arr (最初の三文字から"配列"). るのに必要な最大数は、この配列になります。

最良の方法この問題を解決するその機能を利用する max 図書館から List::Util. 図書館 List::Util 付属のPerl、その場所にはPerl、このライブラリはさらに置います。

ここでは例を見出すプログラム表示最大限配列からなる番号:

▶ Run
#!/usr/bin/perl

use List::Util qw(max);

my @arr = (1, 2, -100, 8, 0);

print max(@arr);

プログラムを表示数は8です。 (実行のコードをブラウザ ).

接続においては、図書室ないしその機能を利用す max: use List::Util qw(max);. だをつなぐだけで図書館 use List::Util;のプログラム者の責任で行っていただきます。エラー Undefined subroutine &main::max called at script.pl line 7..

配列の要素がない

場合はこの配列は空になりますし、 max を返しま undef. こちらはサンプルプログラム を考慮し、以下の場合:

▶ Run
#!/usr/bin/perl

use List::Util qw(max);

my @arr;

my $max = max(@arr);

if (defined $max) {
    print $max;
} else {
    print "Empty array";
}

このプログラムでのご提供を致しておりました結果、機能 max の変数の複合加工はお任せ下さい undefを占ことは、自動的に保存されることがあ undefを占テキストを画面になります。

このチェックの結果に機能 maxが、こ の番号の配列の要素 、多数の場合は0、その実行に必要ない場合は空の配列になります。

仕事の場合、配列の文字列

する際に機能 max 図書館から List::Util が繊細さですね。 実際に max を返しの最大数は配列の要素が見数が定することができました。

ここでは一例です。 の結果 max(-100, 'ABC', -4) のまま線 'ABC'. このように" は、数値と文字列の 'ABC' がゼロゼロにする最大値はこの配列、 その結果は素子最高の数値となる。 この例では、文字列 'ABC'.

別の例です。 の結果 max(1, 7, '10W')'10W'.

公式文書

このスニペットの出力 perldoc List::Util  機能については max:

  max
        my $num = max @list;

    Returns the entry in the list with the highest numerical value. If the
    list is empty then "undef" is returned.

        $foo = max 1..10                # 10
        $foo = max 3,9,12               # 12
        $foo = max @bar, @baz           # whatever

その他の記事