結果

問題 No.349 干支の置き物
コンテスト
ユーザー togaerror
提出日時 2016-04-06 16:56:50
言語 Raku
(rakudo v2024.12)
結果
AC  
実行時間 602 ms / 2,000 ms
コード長 747 bytes
コンパイル時間 540 ms
コンパイル使用メモリ 146,668 KB
実行使用メモリ 152,596 KB
最終ジャッジ日時 2024-11-24 13:23:57
合計ジャッジ時間 20,847 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge5
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 29
権限があれば一括ダウンロードができます
コンパイルメッセージ
Syntax OK

ソースコード

diff # 

use v6;

my $n = get().chomp;
my @eto;
loop (my $i = 0; $i < 12; $i++) {
	@eto[$i] = 0;
}

loop ($i = 0; $i < $n; $i++) {
	my $name = get();
	if $name eq 'ne' {
		@eto[0]++;
	} elsif $name eq 'ushi' {
		@eto[1]++;
	} elsif $name eq 'tora' {
		@eto[2]++;
	} elsif $name eq 'u' {
		@eto[3]++;
	} elsif $name eq 'tatsu' {
		@eto[4]++;
	} elsif $name eq 'mi' {
		@eto[5]++;
	} elsif $name eq 'uma' {
		@eto[6]++;
	} elsif $name eq 'hitsuji' {
		@eto[7]++;
	} elsif $name eq 'saru' {
		@eto[8]++;
	} elsif $name eq 'tori' {
		@eto[9]++;
	} elsif $name eq 'inu' {
		@eto[10]++;
	} elsif $name eq 'i' {
		@eto[11]++;
	}
}

my $ans = 0;
$n = ($n + 1) / 2;
for @eto -> $num {
	if $n < $num {
		$ans++;
	}
}

if $ans == 0 {
	say "YES";
} else {
	say "NO";
}
0