結果

問題 No.684 Prefix Parenthesis
コンテスト
ユーザー %20
提出日時 2018-05-12 18:52:00
言語 Perl
(5.40.0)
結果
WA  
実行時間 -
コード長 363 bytes
コンパイル時間 49 ms
コンパイル使用メモリ 6,816 KB
実行使用メモリ 24,064 KB
最終ジャッジ日時 2024-06-28 09:41:00
合計ジャッジ時間 3,119 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge5
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 12 WA * 19
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff # 

$i=<>;
@(=@_=@)=0;
for(<>=~/./g){
	if(/\(/){
		$([@(]=$([-1]+1;
		$_[@_]=$_[-1];
		$)[@)]=$)[-1]
	}elsif($([-1]){
		$([@(]=$([-1]-1;
		$_[@_]=$_[-1]+1;
		$)[@)]=$)[-1]
	}else{
		$([@(]=$([-1];
		$_[@_]=$_[-1];
		$)[@)]=$)[-1]+1
	}
}
while($i){
	$a=$([$i]+$c;
	$b=$)[$i-1];
	if($a>$b){
		$c=$a-$b;
		$x+=$_[$i]+$b
	}else{
		$c=0;
		$x+=$_[$i]
	}
	--$i
}
print$x*2
0