結果

問題 No.852 連続部分文字列
ユーザー tails
提出日時 2019-08-13 17:29:09
言語 Perl
(5.16.3)
結果
AC  
実行時間 1,453 ms
コード長 52 Byte
コンパイル時間 16 ms
使用メモリ 214,324 KB
最終ジャッジ日時 2019-08-13 17:29:27

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
0_sample1.txt AC 3 ms
6,872 KB
0_sample2.txt AC 3 ms
8,920 KB
0_sample3.txt AC 3 ms
6,872 KB
1_minicase01.txt AC 4 ms
6,868 KB
1_minicase02.txt AC 5 ms
6,872 KB
1_minicase03.txt AC 3 ms
6,872 KB
1_minicase04.txt AC 3 ms
6,872 KB
1_minicase05.txt AC 3 ms
6,868 KB
1_minicase06.txt AC 5 ms
6,868 KB
1_minicase07.txt AC 3 ms
6,868 KB
1_minicase08.txt AC 3 ms
6,872 KB
1_minicase09.txt AC 5 ms
6,868 KB
1_minicase10.txt AC 5 ms
6,872 KB
2_largecase01.txt AC 26 ms
6,872 KB
2_largecase02.txt AC 15 ms
6,872 KB
2_largecase03.txt AC 41 ms
7,864 KB
2_largecase04.txt AC 27 ms
6,868 KB
2_largecase05.txt AC 35 ms
8,916 KB
2_largecase06.txt AC 43 ms
8,140 KB
2_largecase07.txt AC 8 ms
6,872 KB
2_largecase08.txt AC 22 ms
6,868 KB
2_largecase09.txt AC 44 ms
8,440 KB
2_largecase10.txt AC 17 ms
6,872 KB
2_largecase11.txt AC 32 ms
6,872 KB
2_largecase12.txt AC 20 ms
6,872 KB
2_largecase13.txt AC 31 ms
6,872 KB
2_largecase14.txt AC 43 ms
8,136 KB
2_largecase15.txt AC 27 ms
6,868 KB
2_largecase16.txt AC 35 ms
6,868 KB
2_largecase17.txt AC 55 ms
8,436 KB
2_largecase18.txt AC 12 ms
6,872 KB
2_largecase19.txt AC 70 ms
8,744 KB
2_largecase20.txt AC 48 ms
8,948 KB
3_maximumcase01.txt AC 1,453 ms
213,124 KB
3_maximumcase02.txt AC 1,380 ms
213,968 KB
3_maximumcase03.txt AC 1,393 ms
214,324 KB
3_maximumcase04.txt AC 1,350 ms
212,952 KB
3_maximumcase05.txt AC 1,446 ms
213,028 KB
3_maximumcase06.txt AC 1,387 ms
214,052 KB
3_maximumcase07.txt AC 1,382 ms
213,008 KB
3_maximumcase08.txt AC 1,386 ms
212,892 KB
3_maximumcase09.txt AC 1,378 ms
212,924 KB
3_maximumcase10.txt AC 1,352 ms
212,948 KB
9_tempura_killer1.txt AC 1,389 ms
212,584 KB
テストケース一括ダウンロード
コンパイルメッセージ
Name "main::D" used only once: possible typo at Main.pl line 1.
Main.pl syntax OK

ソースコード

diff #
print$S/s/(.)/$S+=$D+=-$$1+($$1=++$I)/ge/++$I*2for<>
0