結果

問題 No.430 文字列検索
コンテスト
ユーザー %20
提出日時 2016-12-27 04:43:19
言語 Perl
(5.40.0)
結果
TLE  
実行時間 -
コード長 114 bytes
コンパイル時間 350 ms
コンパイル使用メモリ 6,820 KB
実行使用メモリ 12,708 KB
最終ジャッジ日時 2024-11-10 00:13:07
合計ジャッジ時間 3,628 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample -- * 4
other AC * 1 TLE * 1 -- * 12
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff # 

$S=<>;
chop$S;
$L=length$S;
<>;
for$C(<>){
	chop$C;
	$l=length$C;
	$\+=substr($S,$_,$l)eq$C for 0..$L-$l;
}
print
0