結果

問題 No.179 塗り分け
ユーザー jjjj
提出日時 2016-10-13 23:09:29
言語 Fortran
(gFortran 13.2.0)
結果
AC  
実行時間 97 ms / 3,000 ms
コード長 2,023 bytes
コンパイル時間 2,149 ms
コンパイル使用メモリ 29,872 KB
実行使用メモリ 4,380 KB
最終ジャッジ日時 2023-09-30 20:51:23
合計ジャッジ時間 4,176 ms
ジャッジサーバーID
（参考情報） 		judge13 / judge12
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 1 ms
4,380 KB
testcase_01 AC 1 ms
4,380 KB
testcase_02 AC 1 ms
4,380 KB
testcase_03 AC 1 ms
4,376 KB
testcase_04 AC 1 ms
4,380 KB
testcase_05 AC 1 ms
4,380 KB
testcase_06 AC 3 ms
4,376 KB
testcase_07 AC 1 ms
4,376 KB
testcase_08 AC 2 ms
4,380 KB
testcase_09 AC 2 ms
4,380 KB
testcase_10 AC 13 ms
4,380 KB
testcase_11 AC 11 ms
4,380 KB
testcase_12 AC 45 ms
4,380 KB
testcase_13 AC 1 ms
4,376 KB
testcase_14 AC 1 ms
4,380 KB
testcase_15 AC 1 ms
4,376 KB
testcase_16 AC 1 ms
4,380 KB
testcase_17 AC 1 ms
4,376 KB
testcase_18 AC 24 ms
4,380 KB
testcase_19 AC 23 ms
4,380 KB
testcase_20 AC 1 ms
4,380 KB
testcase_21 AC 2 ms
4,376 KB
testcase_22 AC 59 ms
4,376 KB
testcase_23 AC 17 ms
4,376 KB
testcase_24 AC 52 ms
4,376 KB
testcase_25 AC 25 ms
4,376 KB
testcase_26 AC 27 ms
4,376 KB
testcase_27 AC 77 ms
4,376 KB
testcase_28 AC 45 ms
4,376 KB
testcase_29 AC 89 ms
4,380 KB
testcase_30 AC 22 ms
4,376 KB
testcase_31 AC 97 ms
4,376 KB
testcase_32 AC 26 ms
4,380 KB
testcase_33 AC 85 ms
4,380 KB
testcase_34 AC 36 ms
4,380 KB
testcase_35 AC 90 ms
4,380 KB
testcase_36 AC 1 ms
4,376 KB
testcase_37 AC 1 ms
4,380 KB
testcase_38 AC 1 ms
4,380 KB
testcase_39 AC 1 ms
4,380 KB
testcase_40 AC 1 ms
4,376 KB
testcase_41 AC 1 ms
4,380 KB
testcase_42 AC 1 ms
4,376 KB
testcase_43 AC 3 ms
4,376 KB
testcase_44 AC 12 ms
4,376 KB
testcase_45 AC 1 ms
4,380 KB
権限があれば一括ダウンロードができます

ソースコード

diff # 

program main
  implicit none
  integer::H,W,i,j,hoffset,woffset,blacknum
  integer,allocatable::mas(:,:),nuri(:,:)
  character*50,allocatable::S(:)
  integer,parameter::white=0,black=1,red=2,blue=3
  character,parameter::cwhite='.',cblack='#'
  read *,H,W
  allocate(S(H))
  allocate(mas(W,H),nuri(W,H))
  read *,S
  do i=1, H
     do j=1,W
        if(S(i)(j:j).eq.cwhite) then
           mas(j,i) = white
        else
           mas(j,i) = black
        end if
     end do
  end do

  blacknum = COUNT(mas.eq.black)
  if(blacknum.eq.0.or.MOD(blacknum, 2).eq.1) then
     print '(a)', "NO"
     return
  end if

  do hoffset=-(H-1), H-1
     do woffset=-(W-1), W-1
        if(hoffset.eq.0.and.woffset.eq.0) cycle
        nuri = mas
        do i=1,H
           do j=1,W
              if(j+woffset.le.0.or.j+woffset.gt.W.or. &
                 i+hoffset.le.0.or.i+hoffset.gt.H) then
                 cycle
              end if

              if(nuri(j,i).eq.black.and. &
                 nuri(j+woffset,i+hoffset).eq.black) then
                 nuri(j,i) = red
                 nuri(j+woffset,i+hoffset) = blue
              end if
!              print *,j,i
!              call printer(nuri,H,W)
           end do
        end do
        if(ANY(nuri.eq.black)) then
           continue
        else
           print '(a)', "YES"
           return
        end if
     end do
  end do

  print '(a)', "NO"
contains
  subroutine printer(nuri, H, W)
    integer,allocatable::nuri(:,:)
    integer,parameter::white=0,black=1,red=2,blue=3
    character,parameter::cwhite='.',cblack='#',cred='*',cblue='%'
    integer::i,j,H,W
    character::c
    do i=1,H
       do j=1,W
          select case(nuri(j,i))
          case(white)
             c = cwhite
          case(black)
             c = cblack
          case(red)
             c = cred
          case(blue)
             c = cblue
          end select
          write (*,'(a)',advance='no') c
       end do
       write (*,*)
    end do
  end subroutine printer
end program main
0