Problem:
MathJax.Hub.Config({ tex2jax: { inlineMath: [["$","$"], ["\\(","\\)"]], processEscapes: true }});

石版

古代国家イワシロの遺跡から無数の石版が発見された。研究者の調査によって、各石版には一つの単語が刻まれていることが分かった。しかし、長年の風化によって、以下の理由で解読が困難な石版もあるようだ。

石版に書かれている単語の一つの文字だけが 苔(こけ)で覆われている場合があり、その文字を把握することができない。

石版の左側が欠けており、そこに何か文字列が書かれていたかもしれない（石版の左側０文字以上を把握することができない）。

石版の右側が欠けており、そこに何か文字列が書かれていたかもしれない（石版の右側０文字以上を把握することができない）。

石版に苔が生えている場所は多くても一か所しかない。また、欠けた石版に苔が生えていることはあるが、石版の両側が同時に欠けていることはない。

研究者は、石版発見以前の調査でわかっている単語をまとめた辞書を持っている。しかし、風化の影響による苔と欠けがある石版から元の単語を推測したとき、辞書の中の単語に当てはまるものがいくつあるか、すぐには分からない。

石版の情報が与えられたとき、与えられた辞書の中に当てはまりそうな単語がいくつあるかを数えるプログラムを作成せよ。

Input

入力は以下の形式で与えられる。

N M
word1
word2
:
wordN
slate1
slate2
:
slateM

１行目に辞書に載っている単語の数 N (1 ≤ N ≤ 50000)、石版の数 M (1 ≤ M ≤ 50000) が与えられる。続く N 行に単語 wordi が与えられる。単語は英小文字のみを含む長さが 1 以上 200 以下の文字列である。ただし、N 個の単語は全て異なる。続く M 行に、各石版の情報を表す文字列 slatei が与えられる。slatei は英小文字、「?」、「*」を含む長さが 1 以上 200 以下の文字列である。? は苔に覆われた文字を表す。? は一つの文字列に、多くとも一つしか現れない。文字列の先頭が * の場合、石版の左側が欠けていることを示す。文字列の末尾が * の場合、石版の右側が欠けていることを示す。* は、文字列の先頭か末尾以外には現れず、同時に両側に現れることはない。* が一つだけの文字列が与えられることはない。

入力で与えられる文字列の文字の総数は 3000000 を超えない。

Output

各石版について、単語の数を１行に出力する。

Sample Input 1

5 4
aloe
apple
apricot
cactus
cat
apple
ap*
*e
ca?*

Sample Output 1

1
2
2
2

Solution in C# (judge verdict: Time Limit Exceeded)

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text.RegularExpressions;

namespace AOJ.Volume3
{
    public class Slates
    {
        public static int Main()
        {
            var input = Console.ReadLine().Split(' ');
            int n = int.Parse(input[0]);
            int m = int.Parse(input[1]);

            var word = new List<string>();
            for (int i = 0; i < n; i++) { word.Add(Console.ReadLine()); }

            Regex reg;
            for(int i = 0; i < m; i++)
            {
                string slate = Console.ReadLine();
                slate = slate.Replace("?", "[a-z]");
                int answer = 0;
                if(slate[0] == '*')
                {
                    // ???????¬?????????????
                    reg = new Regex("[a-z]" + slate + "$");
                }
                else if (slate[slate.Length - 1] == '*')
                {
                    // ???????¬?????????????
                    slate = slate.Replace("*", "[a-z]*");
                    reg = new Regex("^" + slate);
                }
                else
                {
                    // ?¬????????????????
                    reg = new Regex("^" + slate + "$");
                }

                foreach (var w in word)
                {
                    if (reg.IsMatch(w)) { answer++; }
                }
                Console.WriteLine(answer);
            }

            return 0;
        }
    }
}