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

flyfeel

UID: 46107
帖子: 130
积分: 299
在线时间: 23 小时

11^# flyfeel 发表于 2008-06-03 15:16

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

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

12^# cobrawgl 发表于 2008-06-03 18:42

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

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

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

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