結果
問題 | No.430 文字列検索 |
ユーザー | jj |
提出日時 | 2016-10-02 23:40:23 |
言語 | Fortran (gFortran 14.2.0) |
結果 |
WA
|
実行時間 | - |
コード長 | 955 bytes |
コンパイル時間 | 145 ms |
コンパイル使用メモリ | 33,280 KB |
実行使用メモリ | 7,160 KB |
最終ジャッジ日時 | 2024-11-10 00:04:31 |
合計ジャッジ時間 | 7,112 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge5 |
(要ログイン)
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 1 ms
5,248 KB |
testcase_01 | AC | 577 ms
7,024 KB |
testcase_02 | AC | 558 ms
6,908 KB |
testcase_03 | AC | 546 ms
6,912 KB |
testcase_04 | WA | - |
testcase_05 | AC | 1 ms
5,248 KB |
testcase_06 | AC | 1 ms
5,248 KB |
testcase_07 | AC | 1 ms
5,248 KB |
testcase_08 | AC | 8 ms
6,964 KB |
testcase_09 | AC | 1 ms
5,248 KB |
testcase_10 | AC | 2 ms
5,248 KB |
testcase_11 | WA | - |
testcase_12 | WA | - |
testcase_13 | WA | - |
testcase_14 | WA | - |
testcase_15 | WA | - |
testcase_16 | WA | - |
testcase_17 | WA | - |
ソースコード
program mainimplicit nonecharacter*50000::Scharacter*10::c(5000)integer*8::snum(50000)integer*8::shash(10,50000)integer*8::chash(5000)integer::clen(5000)integer::M,i,j,sleninteger*8::match=0,tmpread *,Sread *,Mread *,c(1:M)clen(1:M) = LEN_TRIM(c(1:M))slen = LEN_TRIM(S)do i=1,slensnum(i) = ICHAR(S(i:i))-ICHAR('A') + 1end dodo i=1,slentmp = 1do j=1,10if(i+j-1.gt.slen) exittmp = tmp + snum(i+j-1) * 26**(j-1)shash(j,i) = tmpend doend dodo i=1,Mtmp = 1do j=1,clen(i)tmp = tmp + (ICHAR(c(i)(j:j))-ICHAR('A') + 1) * 26**(j-1)end dochash(i) = tmpend dodo j=1,Mtmp = clen(j)! print '(a,i0)',"chash:",chash(j)! print *,shash(tmp,1:slen)do i=1,slenif(shash(tmp,i).eq.chash(j)) thenmatch = match + 1end ifend doend doprint '(i0)',matchend program main