結果

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

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
Sample_01.txt AC 4 ms
2,228 KB
Sample_02.txt AC 4 ms
2,224 KB
Sample_03.txt AC 4 ms
2,224 KB
Sample_04.txt AC 4 ms
2,224 KB
Sample_05.txt AC 4 ms
2,224 KB
Sample_06.txt AC 4 ms
2,224 KB
Sample_07.txt AC 5 ms
2,224 KB
Test_1_01.txt AC 4 ms
2,260 KB
Test_1_02.txt AC 5 ms
2,300 KB
Test_1_03.txt AC 6 ms
2,384 KB
Test_1_04.txt AC 10 ms
2,652 KB
Test_1_05.txt AC 15 ms
3,084 KB
Test_2_01.txt AC 15 ms
3,084 KB
Test_2_02.txt AC 15 ms
3,080 KB
Test_2_03.txt AC 15 ms
3,084 KB
Test_2_04.txt AC 15 ms
3,084 KB
Test_2_05.txt AC 15 ms
3,084 KB
Test_2_06.txt AC 14 ms
3,080 KB
Test_2_07.txt AC 4 ms
2,220 KB
Test_2_08.txt AC 3 ms
2,228 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