Slide 88
Slide 88 text
use utf8;
use open qw( :encoding(UTF-8) :std );
use Test::More tests => 66;
use Lingua::Stem::UniNE::CS qw( stem );
is stem("zvířatech"), "zvíř", "rm -atech";
is stem("zvířatům"), "zvíř", "rm -atům";
is stem("zvířata"), "zvíř", "rm -ata";
is stem("zvířaty"), "zvíř", "rm -aty";
…