Artificial Intelligence and Perl - Example problem (cont.)

1.3 Example problem (cont.)

Solving using Perl module

use Lingua::EN::MatchNames;

# 85% of certainty
if (name_eq("Leonardo Da Vinci", "Leonard d'Vinchi") >= 85) {
	print "Match\n";
}