結果
問題 | No.275 中央値を求めよ |
ユーザー |
![]() |
提出日時 | 2019-05-18 21:31:41 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 5 ms / 1,000 ms |
コード長 | 394 bytes |
コンパイル時間 | 192 ms |
コンパイル使用メモリ | 5,376 KB |
実行使用メモリ | 5,760 KB |
最終ジャッジ日時 | 2024-09-17 06:22:49 |
合計ジャッジ時間 | 1,516 ms |
ジャッジサーバーID (参考情報) |
judge2 / judge4 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 38 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
my $total_num = <>; my $numbers = <>; chomp ($total_num, $numbers); my @numbers = split(/ /, $numbers); my @sorted_num = sort {$a <=> $b} @numbers; my $median; if($total_num % 2 != 0){ my $num1 = $total_num/2 + 0.5; $median = $sorted_num[$num1-1]; }else{ my $num2 = $total_num/2; $median = sprintf("%.1f", ($sorted_num[$num2-1] + $sorted_num[$num2])/2); } print "$median\n";