結果

問題 No.351 市松スライドパズル
ユーザー jjjj
提出日時 2016-08-11 23:06:32
言語 Fortran
(gFortran 13.2.0)
結果
TLE  
実行時間 -
コード長 1,099 bytes
コンパイル時間 917 ms
コンパイル使用メモリ 33,848 KB
実行使用メモリ 407,612 KB
最終ジャッジ日時 2024-11-07 11:07:49
合計ジャッジ時間 6,253 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge4
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 276 ms
17,332 KB
testcase_01 AC 1 ms
6,816 KB
testcase_02 AC 1 ms
6,820 KB
testcase_03 AC 2 ms
6,816 KB
testcase_04 AC 1 ms
6,820 KB
testcase_05 AC 1 ms
6,820 KB
testcase_06 AC 1 ms
6,816 KB
testcase_07 AC 1 ms
6,820 KB
testcase_08 AC 1 ms
6,816 KB
testcase_09 AC 1 ms
6,816 KB
testcase_10 AC 2 ms
6,820 KB
testcase_11 AC 1 ms
6,816 KB
testcase_12 AC 2 ms
6,816 KB
testcase_13 TLE -
testcase_14 -- -
testcase_15 -- -
testcase_16 -- -
testcase_17 -- -
testcase_18 -- -
testcase_19 -- -
testcase_20 -- -
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.f90:48:38:

   48 |           write(*,'(i0)',advance='no'),board(jj,ii)
      |                                      1
Warning: Legacy Extension: Comma before i/o item list at (1)

ソースコード

diff # 

program main
  implicit none
  type hand
     character::RC
     integer::index
  end type hand
  integer::H,W,N,i,j,index
  character::rc
  type(hand),allocatable::hands(:)
  integer,allocatable::board(:,:)
  integer,parameter::white=0,black=1

  read *,H,W
  read *,N
  allocate(hands(N))
  allocate(board(W,H))
  read *,hands
  do i=1,H
     do j=1,W
        board(j,i) = MOD((i+j),2) !ichimatsu
     end do
  end do
  do i=1,N
     rc    = hands(i)%RC
     index = hands(i)%index+1
     select case(rc)
     case ('R')
        board(1:W,index) = [board(W,index),board(1:W-1,index)]
     case ('C')
        board(index,1:H) = [board(index,H),board(index,1:H-1)]
     end select
  end do

  if(board(1,1).eq.white) then
     print '(a)',"white"
  else
     print '(a)',"black"
  end if
contains
  subroutine slide_r()
    integer::ii
  end subroutine slide_r

  subroutine state()
    integer::ii,jj
    do ii=1,H
       do jj=1,W-1
          write(*,'(i0)',advance='no'),board(jj,ii)
       end do
       print '(i0)',board(W,ii)
    end do
    print *,""
  end subroutine state
end program main
0