結果

問題 No.179 塗り分け
ユーザー jjjj
提出日時 2016-10-13 22:59:55
言語 Fortran
(gFortran 13.2.0)
結果
WA  
実行時間 -
コード長 1,735 bytes
コンパイル時間 1,377 ms
コンパイル使用メモリ 34,816 KB
実行使用メモリ 6,820 KB
最終ジャッジ日時 2024-10-03 03:27:50
合計ジャッジ時間 2,629 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge2
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 1 ms
5,248 KB
testcase_01 AC 1 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 2 ms
5,248 KB
testcase_07 WA -
testcase_08 WA -
testcase_09 WA -
testcase_10 AC 1 ms
5,248 KB
testcase_11 AC 1 ms
5,248 KB
testcase_12 AC 3 ms
5,248 KB
testcase_13 AC 1 ms
5,248 KB
testcase_14 AC 1 ms
5,248 KB
testcase_15 AC 2 ms
5,248 KB
testcase_16 AC 1 ms
5,248 KB
testcase_17 AC 1 ms
5,248 KB
testcase_18 AC 1 ms
5,248 KB
testcase_19 AC 2 ms
5,248 KB
testcase_20 AC 2 ms
5,248 KB
testcase_21 AC 3 ms
5,248 KB
testcase_22 AC 3 ms
5,248 KB
testcase_23 AC 1 ms
5,248 KB
testcase_24 AC 3 ms
5,248 KB
testcase_25 AC 1 ms
5,248 KB
testcase_26 WA -
testcase_27 AC 6 ms
5,248 KB
testcase_28 WA -
testcase_29 AC 8 ms
5,248 KB
testcase_30 WA -
testcase_31 AC 8 ms
5,248 KB
testcase_32 AC 5 ms
5,248 KB
testcase_33 AC 7 ms
5,248 KB
testcase_34 WA -
testcase_35 AC 7 ms
5,248 KB
testcase_36 AC 1 ms
5,248 KB
testcase_37 AC 1 ms
5,248 KB
testcase_38 AC 1 ms
5,248 KB
testcase_39 AC 1 ms
5,248 KB
testcase_40 AC 2 ms
5,248 KB
testcase_41 AC 1 ms
5,248 KB
testcase_42 AC 1 ms
5,248 KB
testcase_43 AC 1 ms
5,248 KB
testcase_44 AC 2 ms
5,248 KB
testcase_45 AC 1 ms
5,248 KB
権限があれば一括ダウンロードができます

ソースコード

diff # 

program main
  implicit none
  integer::H,W,i,j,hoffset,woffset
  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

  do hoffset=0, H/2
     do woffset=0, W/2
        if(hoffset.eq.0.and.woffset.eq.0) cycle
        nuri = mas
        do i=1,H-hoffset
           do j=1,W-woffset
              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