結果

問題 No.959 tree and fire
コンテスト
ユーザー さとみん
提出日時 2019-12-30 01:48:27
言語 Fortran
(gFortran 15.2.0)
コンパイル:
gfortran _filename_ -O2 -o ./a.out
実行:
./a.out
結果
AC  
実行時間 1 ms / 2,000 ms
コード長 743 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 113 ms
コンパイル使用メモリ 39,148 KB
実行使用メモリ 7,972 KB
最終ジャッジ日時 2026-05-07 06:25:50
合計ジャッジ時間 1,628 ms
ジャッジサーバーID
（参考情報） 		judge3_0 / judge2_0
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 54
権限があれば一括ダウンロードができます

ソースコード

diff #
raw source code 

program main
    implicit none
    
    integer(8) :: n
    integer(8) :: m
    
    integer(8) :: i, j
    
    double precision :: p
    
    double precision :: expected_trees
    
    read *, n, m
    read *, p
    
    if (n == 1) then
        expected_trees = merge(p, dble(m-2) * p**3 + 2.0d0 * p**2, m == 1)
    else
        expected_trees = merge(                                                       &
            dble(n-2) * p**3 + 2.0d0 * p**2,                                          &
            dble(n-2) * dble(m-2) * p**5 + dble(2*n + 2*m - 8) * p**4 + 4.0d0 * p**3, &
            m == 1                                                                    &
        )
    end if
    print *, expected_trees
end program main
0