結果

問題 No.457 (^^*)
ユーザー tails
提出日時 2016-12-08 00:12:43
言語 Perl
(5.16.3)
結果
AC  
実行時間 16 ms
コード長 385 Byte
コンパイル時間 56 ms
使用メモリ 3,068 KB
最終ジャッジ日時 2019-07-16 00:48:45

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
Sample_01.txt AC 3 ms
2,204 KB
Sample_02.txt AC 4 ms
2,204 KB
Sample_03.txt AC 4 ms
2,204 KB
Sample_04.txt AC 5 ms
2,204 KB
Sample_05.txt AC 4 ms
2,204 KB
Sample_06.txt AC 5 ms
2,204 KB
Sample_07.txt AC 4 ms
2,208 KB
Test_1_01.txt AC 4 ms
2,240 KB
Test_1_02.txt AC 6 ms
2,280 KB
Test_1_03.txt AC 7 ms
2,368 KB
Test_1_04.txt AC 10 ms
2,632 KB
Test_1_05.txt AC 16 ms
3,064 KB
Test_2_01.txt AC 14 ms
3,064 KB
Test_2_02.txt AC 14 ms
3,064 KB
Test_2_03.txt AC 15 ms
3,068 KB
Test_2_04.txt AC 15 ms
3,064 KB
Test_2_05.txt AC 15 ms
3,064 KB
Test_2_06.txt AC 15 ms
3,064 KB
Test_2_07.txt AC 5 ms
2,204 KB
Test_2_08.txt AC 4 ms
2,204 KB
テストケース一括ダウンロード
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff #
$_=<>;
$o5=0;
for(/./g){
	if($_ eq'('){
		++$o1;
	}
	if($_ eq'*'){
		$o2+=$o1; $o1=0;
	}
	if($_ eq'^'){
		$o4+=$o3; $o3=$o2; $o2=0;
	}
	if($_ eq')'){
		$o5+=$o4;
	}
}
$r=$o5;
$o1=$o2=$o3=$o4=$o5=0;
y/()/)(/;
for(reverse /./g){
	if($_ eq'('){
		++$o1;
	}
	if($_ eq'*'){
		$o2+=$o1; $o1=0;
	}
	if($_ eq'^'){
		$o4+=$o3; $o3=$o2; $o2=0;
	}
	if($_ eq')'){
		$o5+=$o4;
	}
}
print $o5,$",$r
0