結果

問題 No.142 単なる配列の操作に関する実装問題
ユーザー kamomekamome
提出日時 2019-07-25 17:22:11
言語 Fortran
(gFortran 13.2.0)
結果
WA  
実行時間 -
コード長 1,222 bytes
コンパイル時間 1,596 ms
コンパイル使用メモリ 28,068 KB
実行使用メモリ 14,944 KB
最終ジャッジ日時 2023-09-26 23:15:38
合計ジャッジ時間 16,751 ms
ジャッジサーバーID
（参考情報） 		judge11 / judge13
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 WA -
testcase_01 TLE -
testcase_02 -- -
testcase_03 -- -
testcase_04 -- -
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.f90:19:45:

             write (*,fmt='(a)', advance='no'),"O"
                                             1
Warning: Legacy Extension: Comma before i/o item list at (1)
Main.f90:21:45:

             write (*,fmt='(a)', advance='no'),"E"
                                             1
Warning: Legacy Extension: Comma before i/o item list at (1)

ソースコード

diff # 


program main
    implicit none
    integer N,S,X,Y,Z,Q
    integer i,j
    integer :: int_arr
    logical,allocatable :: arr(:)

    read *,N,S,X,Y,Z
    call mk_int_arr
    read *,Q
    do i = 1, Q
        call modify_arr
    end do

    do i = 1, N
        if ( arr(i) .eqv. .true. ) then
            write (*,fmt='(a)', advance='no'),"O"
        else
            write (*,fmt='(a)', advance='no'),"E"
        end if
    end do
    write (*,fmt='(a)') ""

contains
subroutine mk_int_arr
    implicit none
    integer i,prev
    logical mod2
    allocate(arr(N))
    prev = S
    arr(1) = mod(prev, 2) == 1
    do i = 1, N-1
        !write(*,*) prev
        prev = mod(X * prev + Y,Z)
        mod2 = mod(prev, 2) == 1
        arr(i+1) = mod2
    end do
    
end subroutine

subroutine modify_arr
    implicit none
    integer CPin1,CPin2,CPout1,CPout2
    integer i,j,length
    logical,allocatable :: mini_arr(:)
    read *,CPin1,CPin2,CPout1,CPout2
    length=CPin2-CPin1+1
    allocate(mini_arr(length))
    do i = 1, length
        mini_arr(i)=arr(CPin1+i-1)
    end do
    do j = 1, length
        arr(j+CPout1-1)=xor(arr(j+CPout1-1),mini_arr(j))
    end do
    !write (*,*) arr
end subroutine


end program  main
0