NYSIIS: Difference between revisions

 

=={{header|Perl 6}}==

This implementation removes common name suffixes similar to the reference implementation, even though it is not specified in the task description or on the linked [[wp:New York State Identification and Intelligence System|NYSIIS]] page. This algorithm isn't too friendly to certain French kings. :)

 

s:c(1):g/H(<-[AEIOU]>)/$0/;

s:g/(<-[AEIOU]>)H/$0/;

s/ AY$ /Y/;

s/ S$ //;

s:g/ (.)$0+ /$0/;

}

}