結果

問題 No.570 3人兄弟(その1)
ユーザー moti
提出日時 2018-05-15 00:12:51
言語 Perl
(5.40.0)
結果
AC  
実行時間 7 ms / 2,000 ms
コード長 330 bytes
コンパイル時間 117 ms
コンパイル使用メモリ 6,944 KB
実行使用メモリ 6,016 KB
最終ジャッジ日時 2024-06-28 11:54:43
合計ジャッジ時間 698 ms
ジャッジサーバーID
(参考情報)
judge3 / judge1
このコードへのチャレンジ
(要ログイン)
ファイルパターン 結果
sample AC * 2
other AC * 5
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff #
プレゼンテーションモードにする

#!/usr/bin/env perl
use strict;
use utf8;
use warnings;
if ($0 eq __FILE__) {
my @arr;
my $i = 0;
my @abc = ('A'...'C');
while (defined(my $line = <STDIN>)) {
chomp($line);
push @arr, [$line, $abc[$i]];
$i++;
}
@arr = sort {$b->[0] <=> $a->[0]} @arr;
printf("$arr[0][1]\n$arr[1][1]\n$arr[2][1]\n");
}
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0