Location : Home > Languages > Perl > Package Title : Algorithm::MDiff |
![]() |
Algorithm::MDiff - m-difference の探索
use Algorithm::MDiff;
m-difference は筆者自身が− http://www.perlmonks.org の連中の助けを借りて−設計した比較ツール。このアイデアは既にあるのだろうけれども、筆者がこれを m-difference と呼ぶことに決めた。:)
2つの文字列で文字が m 箇所異なっていれば、 m-differenceである。例えば m = 3 なら、 str1[i] != str2[i], str1[j] != str2[j] and str1[k] != str2[k] となる添字が少なくとも3つあるということである。
is_mdiff($m, $str1, $str2); # 0 または 1 を返す。
Jettero Heller, <jettero@voltar.org>
Perl
![]() |
Updated : 2006/06/30 |