結果

問題 No.3558 Dominoes, Black and White
コンテスト
ユーザー lotoka
提出日時 2026-07-16 01:24:14
言語 Fortran
(gFortran 16.1.0)
コンパイル:
gfortran-16 _filename_ -O2 -o ./a.out
実行:
./a.out
結果
WA  
実行時間 -
コード長 807 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 1,374 ms
コンパイル使用メモリ 39,936 KB
実行使用メモリ 5,888 KB
最終ジャッジ日時 2026-07-16 01:24:28
合計ジャッジ時間 5,762 ms
ジャッジサーバーID
（参考情報） 		judge2_0 / judge1_0
このコードへのチャレンジ
（要ログイン）
サブタスク 配点 結果
部分点 10 % AC * 23 WA * 7
満点 90 % AC * 58 WA * 31
合計 0 点
権限があれば一括ダウンロードができます

ソースコード

diff #
raw source code 

program main
    integer n, i, j, ans, temp
    integer, allocatable, dimension(:) :: c
    character(2000) s
    read *, n
    allocate(c(n))
    c = 0
    ans = 0
    do i = 1, n
        read *, s
        do j = 1, 2*n
            if (s(j:j) == ".") then
                c(i) = c(i) + 1
                ans = ans + j - c(i)
            end if
        end do
    end do
    do i = 1, n - 1
        if (c(i) > n) then
            do j = 1, n
                if (i == j .or. c(j) > n - 1) cycle
                temp = min(n - c(j), c(i) - n)
                ans = ans + temp * (abs(j - i) - c(j) + c(i) - temp)
                c(i) = c(i) - temp
                c(j) = c(j) + temp
                if (c(i) == n) exit
            end do
        end if
    end do
    write (6, fmt='(I0)') ans
end program main
0