結果

問題 No.515 典型LCP
ユーザー jjjj
提出日時 2017-05-05 23:40:15
言語 Fortran
(gFortran 13.2.0)
結果
RE  
実行時間 -
コード長 1,375 bytes
コンパイル時間 1,604 ms
コンパイル使用メモリ 32,896 KB
実行使用メモリ 13,888 KB
最終ジャッジ日時 2024-09-14 09:20:27
合計ジャッジ時間 6,577 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge5
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 RE -
testcase_01 RE -
testcase_02 TLE -
testcase_03 -- -
testcase_04 -- -
testcase_05 -- -
testcase_06 -- -
testcase_07 -- -
testcase_08 -- -
testcase_09 -- -
testcase_10 -- -
testcase_11 -- -
testcase_12 -- -
testcase_13 -- -
testcase_14 -- -
testcase_15 -- -
testcase_16 -- -
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.f90:58:30:

   58 |     write(cformat(5:9),'(i0)'),size(array)
      |                              1
Warning: Legacy Extension: Comma before i/o item list at (1)

ソースコード

diff # 

program main
  implicit none
  integer*8::N
  character*800000,allocatable::S(:)
  integer*8,allocatable::i(:),j(:)
  integer*8::k,M,x,d,summ
  read *,N
  allocate(S(N))
  do k=1,N
     read *,S(k)
  end do
  allocate(i(N),j(N))
  read *, M, x, d
  call query(N,M,x,d,i,j)

  summ = 0
  do k=1,M
     summ = summ + get_lcp(S,i(k),j(k))
  end do
  print '(i0)',summ
contains
  integer*8 function get_lcp(S,ik,jk) result(lcp)
    character*800000,allocatable,intent(in)::S(:)
    integer*8::ik,jk
    integer*8::silen,sjlen,ii
    lcp = 0
    do ii=1,MIN(LEN_TRIM(S(ik)),LEN_TRIM(S(jk)))
       if(S(ik)(ii:ii).eq.S(jk)(ii:ii)) then
          lcp = lcp + 1
       else
          exit
       end if
    end do
  end function get_lcp

  subroutine query(N,M,x,d,i,j)
    integer*8::tmp,k
    integer*8,intent(in)::M,d,N
    integer*8,intent(inout)::x
    integer*8,allocatable::i(:),j(:)

    do k=1, M
       i(k) = (x/(N-1))+1
       j(k) = MOD(x,(N-1))+1
       if(i(k).gt.j(k)) then
          tmp = j(k)
          j(k) = i(k)
          i(k) = tmp
       else
          j(k) = j(k) + 1
       end if
       x = MOD((x+d),N*(N-1))
    end do
  end subroutine query
  subroutine aprinter(array)
    integer*8::array(:)
    character*32::cformat='(i0,     (1x,i0))'
    write(cformat(5:9),'(i0)'),size(array)
    write(*,cformat) array
  end subroutine aprinter
end program main
0