どを最小限にPerlの配列

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

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

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

▶ Run
#!/usr/bin/perl

use List::Util qw(min);

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

print min(@arr);

のプログラム表示に-100. (実行のコードをブラウザ ).

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

配列の要素がない

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

▶ Run
#!/usr/bin/perl

use List::Util qw(min);

my @arr;

my $min = min(@arr);

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

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

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

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

する際に機能 min 図書館から List::Util が繊細さですね。 実際に min な最低の数字では配列の要素が見番号は軽微であります。

ここでは一例です。 の結果 min(12, 'ABC', 44) のまま線 'ABC'. このように" は、数値と文字列の 'ABC' がゼロゼロの最小値はこの配列になります。 の結果 min の要素が数値は軽微であります。 この例では、文字列 'ABC'.

別の例です。 の結果 min(10, 7, '4H')'4H'.

公式文書

このスニペットの出力 perldoc List::Util  の機能 min:

  min
        my $num = min @list;

    Similar to "max" but returns the entry in the list with the lowest
    numerical value. If the list is empty then "undef" is returned.

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

その他の記事