我们碰到了大麻烦，一个新来的传教士惹恼了上帝，上帝很愤怒，要求我们把圣经背熟，直至他说哪个单词，我们就要飞快的回答出这个单词在第几行第几个单词位置。听说你是个优秀的程序员，那么髟助我们完成这个不可能的任务吧。

要求如下：

1）/myworks/example/bbe.txt，98版本英文圣经一本

2）输入部分要求如下：php ./example.php [单词]

3）输出部分如下：[单词] 1,2 2,4 5,6表示：此单词在1行2列（第二个单词），2行4列...

说明：

1）此文本4MB之巨...

2）单词的含义：由英文字母（大小写），数字（0-9）组成的串

3）提供给你的机器OS为ubuntu 9.10，内存只有1G，而且，很不幸的，其中700M用来做了别的

4）上机考试不允许上网，但我装了man文档以及读取CHM以及PDF的阅读器，在电脑的桌面的CHM文件夹中，有相应的PHP参考手册

5）算法复杂度要求不能大于O（N^2）（就是N的平方）

6）什么？PHP低效且用起来不顺手，好的，你可以用别的语言来实现。但注意：提供给你的机器上只有python 2.4/perl 5.8/gcc[g++] 4.1

Imports VBF.Compilers.Scanners
Imports VBF.Compilers.Scanners.RegularExpression
Imports System.IOModule ProgramSub Main(args As String())Dim findword = args(0)Dim bibleLexicon As New Lexicon()Dim lex = bibleLexicon.DefaultLexer'定义要寻找单词的词法Dim TARGET = lex.DefineToken(Literal(findword))'定义一般单词的词法Dim WORD = lex.DefineToken((Range("0"c, "9"c) OrRange("a"c, "z"c) OrRange("A"c, "Z"c)).Many1)'定义换行Dim LF = lex.DefineToken(Symbol(vbLf) Or Literal(vbCrLf))'定义其他所有符号均忽略Dim OTHER = lex.DefineToken(Range(ChrW(0), ChrW(255)))Dim bibleScanner As New PeekableScanner(bibleLexicon.CreateScannerInfo())bibleScanner.SetSkipTokens(OTHER.Index)Using sr As New StreamReader("bible.txt")Dim source As New SourceReader(sr)bibleScanner.SetSource(source)Dim scannerWatch As New StopwatchDim lines = 1, columns = 1, totalwords = 0, targetwords = 0scannerWatch.Start()Do While bibleScanner.Peek() <> bibleScanner.ScannerInfo.EndOfStreamTokenIndexDim x As Lexeme = bibleScanner.Read()Select Case x.TokenIndexCase TARGET.IndexConsole.WriteLine("第{0}行,第{1}列", lines, columns, x.Value)columns += 1targetwords += 1totalwords += 1Case WORD.Indexcolumns += 1totalwords += 1Case LF.Indexlines += 1columns = 1End SelectLoopscannerWatch.Stop()Console.WriteLine("总单词数: " & totalwords)Console.WriteLine("目标单词出现次数: " & targetwords)Console.WriteLine("消耗时间: " & scannerWatch.ElapsedMilliseconds)End UsingEnd SubEnd Module

第5769行,第29列
第14112行,第8列
第16578行,第14列
第17558行,第8列
第17646行,第25列
第20351行,第34列
第22304行,第23列
第22908行,第31列