結果

問題 No.22 括弧の対応
ユーザー BQZetBQZet
提出日時 2017-12-12 05:38:21
言語 Fortran
(gFortran 13.2.0)
結果
WA  
実行時間 -
コード長 541 bytes
コンパイル時間 1,400 ms
コンパイル使用メモリ 30,848 KB
実行使用メモリ 5,376 KB
最終ジャッジ日時 2024-05-08 03:59:36
合計ジャッジ時間 2,266 ms
ジャッジサーバーID
(参考情報)
judge2 / judge1
このコードへのチャレンジ
(要ログイン)

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 WA -
testcase_01 WA -
testcase_02 WA -
testcase_03 WA -
testcase_04 WA -
testcase_05 WA -
testcase_06 WA -
testcase_07 WA -
testcase_08 WA -
testcase_09 WA -
testcase_10 WA -
testcase_11 WA -
testcase_12 WA -
testcase_13 WA -
testcase_14 WA -
testcase_15 WA -
testcase_16 WA -
testcase_17 WA -
testcase_18 WA -
権限があれば一括ダウンロードができます

ソースコード

diff #

integer::N,K,i,a=0
integer,parameter::max=10000
character(len=max)::S
character,parameter::l='(',r=')'

read *,N,K
read *,S

if(S(K:K)=='(') then
 print *,'a'
 do i=K,N
 print *,a
  if(S(i:i)=='(') then
   a=a+1
   if(a==0) exit
  else if(S(i:i)==')') then
   a=a-1
   if(a==0) exit
  end if
 end do

print *,i

else
  print *,'b'
  do i=K,1,-1
  print *,a
  if(S(i:i)==l) then
   a=a+1
   if(a==0) exit
  else if(S(i:i)==r) then
   a=a-1
   if(a==0) exit
  else 
  end if
 end do

print *,i
end if
end
0