結果

問題 No.430 文字列検索
ユーザー %20%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
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0