用 perl 实现的一个 拼写检查器，与 python 代码作对比。

flyfeel

return ((map {(substr $word, 0, $_) . (substr $word, $_+1)} 0 .. (length($word)-1)),
            (map {(substr $word, 0, $_) . (substr $word, $_+1, 1) . (substr $word, $_, 1) . (substr $word, $_+2)} 0 .. (length($word)-2)),
            (map {my $c = $_; map {(substr $word, 0, $_) . $c . (substr $word, $_+1)} 0 .. (length($word)-1)} 'a'..'z'),
            (map {my $c = $_; map {(substr $word, 0, $_) . $c . (substr $word, $_)} 0 .. length($word)} 'a'..'z')); }
==================================
本来还想瞻仰一下楼主的代码，
可无奈这个return不好理解啊！！！
希望楼主能按编程规范来啊，
不然我们新手不好理解啊！

cobrawgl

带测试数据的完整代码可以到我的 CU博客 看 http://blog.chinaunix.net/u/78/

不过，big.txt 得自己到原网站下载了

rubyish

Perltidy 下 4 楼代码:

1. #!/usr/bin/perl
   
2. 
   
3. use IO::File;
   
4. my $fh = IO::File->new('big.txt') or die;
   
5. my $words = join '', <$fh>;
   
6. sub words { return ( lc shift ) =~ /([a-z]+)/g; }
   
7. 
   
8. sub train {
   
9.     my %model;
   
10.     $model{$_} = ( $model{$_} || 1 ) + 1 for @_;
    
11.     return %model;
    
12. }
    
13. my %nwords = train( words($words) );
    
14. 
    
15. sub edits1 {
    
16.     my $word = shift;
    
17.     return (
    
18.         (
    
19.             map { ( substr $word, 0, $_ ) . ( substr $word, $_ + 1 ) }
    
20.               0 .. ( length($word) - 1 )
    
21.         ),
    
22.         (
    
23.             map {
    
24.                 ( substr $word, 0, $_ )
    
25.                   . ( substr $word, $_ + 1, 1 )
    
26.                   . ( substr $word, $_, 1 )
    
27.                   . ( substr $word, $_ + 2 )
    
28.             } 0 .. ( length($word) - 2 )
    
29.         ),
    
30.         (
    
31.             map {
    
32.                 my $c = $_;
    
33.                 map { ( substr $word, 0, $_ ) . $c . ( substr $word, $_ + 1 ) }
    
34.                   0 .. ( length($word) - 1 )
    
35.             } 'a' .. 'z'
    
36.         ),
    
37.         (
    
38.             map {
    
39.                 my $c = $_;
    
40.                 map { ( substr $word, 0, $_ ) . $c . ( substr $word, $_ ) }
    
41.                   0 .. length($word)
    
42.             } 'a' .. 'z'
    
43.         )
    
44.     );
    
45. }
    
46. 
    
47. sub known_edits2 {
    
48.     return map {
    
49.         grep { exists $nwords{$_} } edits1($_)
    
50.     } edits1(shift);
    
51. }
    
52. 
    
53. sub known {
    
54.     return grep { exists $nwords{$_} } @_;
    
55. }
    
56. 
    
57. sub correct {
    
58.     my @candidates =
    
59.         known(@_)           ? known(@_)
    
60.       : known( edits1(@_) ) ? known( edits1(@_) )
    
61.       : known_edits2(@_)    ? known_edits2(@_)
    
62.       :                       @_;
    
63.     return ( sort { $nwords{$b} <=> $nwords{$a} } @candidates )[0];
    
64. }
    

复制代码

rubyish

python 那个版本真的很快~