Submission #5726

---

Source Code Expand

#!/usr/bin/perl -w
use strict;

#選択肢の数
my $Choice = 4;

#入力
my $MAX = <STDIN>;
my $Answer = <STDIN>;

#配列の初期化
my @n = ("0") x 4;

#１文字ずつ解答を取り出し、$n[解答]を+1
for(my $i=0; $i<$MAX; $i++){
	++$n[substr($Answer,$i,1)];
}

#ソート
@n = sort {$b <=> $a} @n;

#出力
print "$n[0] $n[$Choice-1]\n";

Submission Info

Compile Error

./Main.pl syntax OK

Judge Result