結果

問題 No.21 平均の差
コンテスト
ユーザー sironekotoro
提出日時 2019-01-16 14:18:44
言語 Perl
(5.42.0)
コンパイル:
perl -cw _filename_
実行:
perl -X _filename_
結果
AC  
実行時間 3 ms / 5,000 ms
コード長 241 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 213 ms
コンパイル使用メモリ 7,972 KB
実行使用メモリ 7,844 KB
最終ジャッジ日時 2026-03-16 14:51:06
合計ジャッジ時間 5,811 ms
ジャッジサーバーID
（参考情報） 		judge2_0 / judge3_0
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 10
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff #
raw source code 

use v5.16.3;

my $N = <>;
my $K = <>;
my @a = <>;

chomp ($N,$K);


my $max = 1;
my $min = 1000;

for my $n (@a) {
    chomp $n;
    $min = $n if $n <= $min;
    $max = $n if $n >= $max;
}
# say $min;
# say $max;
say int( ( $max - $min ) );
0