結果

問題 No.297 カードの数式
ユーザー jjjj
提出日時 2016-08-12 00:46:32
言語 Fortran
(gFortran 13.2.0)
結果
WA  
実行時間 -
コード長 1,766 bytes
コンパイル時間 488 ms
コンパイル使用メモリ 33,232 KB
実行使用メモリ 5,248 KB
最終ジャッジ日時 2024-11-07 11:54:36
合計ジャッジ時間 1,258 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge4
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 2 ms
5,248 KB
testcase_01 AC 2 ms
5,248 KB
testcase_02 AC 1 ms
5,248 KB
testcase_03 AC 1 ms
5,248 KB
testcase_04 AC 1 ms
5,248 KB
testcase_05 AC 1 ms
5,248 KB
testcase_06 AC 1 ms
5,248 KB
testcase_07 AC 1 ms
5,248 KB
testcase_08 AC 1 ms
5,248 KB
testcase_09 AC 1 ms
5,248 KB
testcase_10 AC 1 ms
5,248 KB
testcase_11 AC 2 ms
5,248 KB
testcase_12 AC 1 ms
5,248 KB
testcase_13 AC 1 ms
5,248 KB
testcase_14 AC 1 ms
5,248 KB
testcase_15 AC 1 ms
5,248 KB
testcase_16 AC 1 ms
5,248 KB
testcase_17 AC 1 ms
5,248 KB
testcase_18 AC 2 ms
5,248 KB
testcase_19 WA -
testcase_20 WA -
testcase_21 WA -
testcase_22 AC 1 ms
5,248 KB
testcase_23 AC 1 ms
5,248 KB
testcase_24 WA -
testcase_25 WA -
権限があれば一括ダウンロードができます

ソースコード

diff # 

program main
  implicit none
  integer*8::N,M,i,max_val,min_val
  character::c(15)=""
  integer::plus,minus,num(10),digit,series(14)=0
  data plus/0/,minus/0/,num/10*0/
  read *,N
  read *,c(1:N)
  do i=1,N
     if     (c(i).eq.'+') then
        plus  = plus + 1
     else if(c(i).eq.'-') then
        minus = minus + 1
     else
        digit = ICHAR(c(i))-ICHAR('0')
        num(digit) = num(digit) + 1
     end if
  end do
  M = N-plus-minus

  call sort()
  call get_max(max_val)
  call get_min(min_val)
  print '(i0," ",i0)',max_val,min_val
  return
contains
  subroutine get_max(max_val)
    integer*8::total=0,max_val
    do i=1,minus
       total = total - series(i)
    end do
    do i=minus+1,minus+plus
       total = total + series(i)
    end do
    do i=minus+plus+1,M
       total = total + series(i)*10**(i-minus-plus-1)
    end do
    max_val = total
  end subroutine get_max

  subroutine get_min(min_val)
    integer*8::total=0,min_val
    if(minus.gt.0) then
       do i=1,plus+1
          total = total + series(i)
       end do
       do i=plus+2,plus+minus
          total = total - series(i)
       end do
       do i=plus+1+minus, M
          total = total - series(i)*10**(i-minus-plus-1)
       end do
    else
       do i=M,M-plus+1,-1
          total = total + series(i)
       end do
       do i=M-plus,1,-1
          total = total + series(i)*10**((M-plus)-i)
       end do
    end if
    min_val = total
  end subroutine get_min
  subroutine sort()
    integer::itr
    itr = 0
    do i=1, M
       do
          if(num(itr).eq.0) then
             itr = itr + 1
          else
             num(itr) = num(itr) - 1
             exit
          end if
       end do
       series(i) = itr
    end do
  end subroutine sort
end program main
0