para

head

Follows the Russian stemming implementation of:


item


unit module Lingua::Stem::Russian;

#| The Russian stemming rules
my $vowel        = 'аеиоуыэюя';
my $NO-VOWEL     = '<-[' ~ $vowel ~ ']>';
my $VOWEL        = '<[' ~ $vowel ~ ']>';
my $PERFECTIVEGROUND = ' ((ив|ивши|ившись|ыв|ывши|ывшись) | ((<?after <[ая]>>) (в|вши|вшись))) $ ';
my $REFLEXIVE    = ' (с <[яь]>) $ ';
my $ADJECTIVE    = ' (ее|ие|ые|ое|ими|ыми|ей|ий|ый|ой|ем|им|ым|ом|его|ого|ему|ому|их|ых|ую|юю|ая|яя|ою|ею) $ ';
my $PARTICIPLE   = ' ((ивш|ывш|ующ)|((<?after <[ая]>>) (ем|нн|вш|ющ|щ))) $ ';
my $VERB         = ' ((ила|ыла|ена|ейте|уйте|ите|или|ыли|ей|уй|ил|ыл|им|ым|ен|ило|ыло|ено|ят|ует|уют|ит|ыт|ены|ить|ыть|ишь|ую|ю)|((<?after <[ая]>>) (ла|на|ете|йте|ли|й|л|ем|н|ло|но|ет|ют|ны|ть|ешь|нно))) $ ';
my $NOUN         = ' (а|ев|ов|ие|ье|е|иями|ями|ами|еи|ии|и|ией|ей|ой|ий|й|иям|ям|ием|ем|ам|ом|о|у|ах|иях|ях|ы|ь|ию|ью|ю|ия|ья|я) $ ';
my $RVRE         = rx / ^ (.*? <$VOWEL> ) (.*) $ /;
my $DERIVATIONAL = rx / <$NO-VOWEL> <$VOWEL>+ <$NO-VOWEL>+ <$VOWEL> .* <?after 'о'> 'сть'? $ /;

#`[ Original Perl code converted from KOI8-R to UTF-8
my $VOWEL        = qr/аеиоуыэюя/;
my $PERFECTIVEGROUND = qr/((ив|ивши|ившись|ыв|ывши|ывшись)|((?<=[ая])(в|вши|вшись)))$/;
my $REFLEXIVE    = qr/(с[яь])$/;
my $ADJECTIVE    = qr/(ее|ие|ые|ое|ими|ыми|ей|ий|ый|ой|ем|им|ым|ом|его|ого|ему|ому|их|ых|ую|юю|ая|яя|ою|ею)$/;
my $PARTICIPLE   = qr/((ивш|ывш|ующ)|((?<=[ая])(ем|нн|вш|ющ|щ)))$/;
my $VERB         = qr/((ила|ыла|ена|ейте|уйте|ите|или|ыли|ей|уй|ил|ыл|им|ым|ен|ило|ыло|ено|ят|ует|уют|ит|ыт|ены|ить|ыть|ишь|ую|ю)|((?<=[ая])(ла|на|ете|йте|ли|й|л|ем|н|ло|но|ет|ют|ны|ть|ешь|нно)))$/;
my $NOUN         = qr/(а|ев|ов|ие|ье|е|иями|ями|ами|еи|ии|и|ией|ей|ой|ий|й|иям|ям|ием|ем|ам|ом|о|у|ах|иях|ях|ы|ь|ию|ью|ю|ия|ья|я)$/;
my $RVRE         = qr/^(.*?[$VOWEL])(.*)$/;
my $DERIVATIONAL = qr/[^$VOWEL][$VOWEL]+[^$VOWEL]+[$VOWEL].*(?<=о)сть?$/;
]

#| RussianStem
proto RussianStem($wordSpec) is export {*}

#| RussianStem
multi RussianStem(@words --> List) {
    return @words.map({ RussianStem($_) }).List;
}

#| RussianStem
multi RussianStem(Str:D $word --> Str) {

    # The code in this function is very close to the original Perl code of stem_word in
    # https://github.com/neilb/Lingua-Stem-Ru/blob/master/lib/Lingua/Stem/Ru.pm

    my ($start, $RV) = |($word.lc ~~ $RVRE);

    return $word unless $RV;

    # note 'step 0: ',$RV;

    # Step 1
    unless $RV ~~ s/ <{$PERFECTIVEGROUND}> // {
        $RV ~~ s/ <{$REFLEXIVE}> //;

        # note 'step 1a: ', $RV;

        if ($RV ~~ s/ <{$ADJECTIVE}> //) {
            $RV ~~ s/ <{$PARTICIPLE}> //;
        } else {
            $RV ~~ s/ <{$NOUN}> // unless $RV ~~ s/ <{$VERB}> //;
        }
        # note 'step 1b: ',$RV;
    }

    # Step 2
    $RV ~~ s/и$//;
    # note 'step 2: ',$RV;

    # Step 3
    $RV ~~ s/ость?$// if $RV ~~ $DERIVATIONAL;
    # note 'step 3: ',$RV;

    # Step 4
    unless ($RV ~~ s/ь$//) {
        $RV ~~ s/ейше?//;
        $RV ~~ s/нн$/н/;
    }

    return $word.substr(0, $start.chars) ~ $word.substr($start.chars, $RV.Str.chars);
}

#| Synonym of RussianStem
sub ru-word-stem($arg) is export {
    return RussianStem($arg);
}


root

README-work

README

React

=begin React :component<HeaderCol> :id<menu> 
=para L<Documentation|/doc/introduction>
=para L<Modules| /mods>
=para L<Examples| file:../examples/index.podlite>
=para L<AI|file:../mcp/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React


=begin React :component<HeaderCol> :id<footer>  
=begin nested :!nested
=item1 B<Language>
    =item2 L<Get started|file:../getting-started/getting-started.podlite>
    =item2 L<Why Raku?|/doc/language/faq#Why-should-I-learn-Raku-What's-so-great-about-it>
    =item2 L<Try Raku|https://glot.io/new/raku>
    =item2 L<Download | file:../download/index.podlite>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>

=end nested
=begin nested :!nested

=item1 B<L<Documentation|/doc>>
    =item2 L<Getting started, Migration guides from other languages, & Tutorials | file:../doc/introduction.podlite>
    =item2 L<Language References|file:../doc/reference.podlite>
    =item2 L<Type Reference| file:../doc/types.podlite>
    =item2 L<Miscellaneous| file:../doc/miscellaneous.podlite>
    =item2 L<FAQs (Frequently Asked Questions)|/doc/language/faq>
    =item2 L<Community|/doc/language/community>
    =item2 L<The list of all documents|file:../doc/index.podlite>
    =item2 L<Hand these documents to an AI assistant|file:../mcp/index.podlite>

=end nested
=begin nested :!nested
=item1 B<Learning>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Wikibook |https://en.wikibooks.org/wiki/Raku_Programming>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>
    =item2 L<Learn Raku in Y minutes|https://learnxinyminutes.com/docs/raku/>
    =item2 L<Golfing |https://github.com/AlexDaniel/raku-golf-cheatsheet>
=end nested
=begin nested :!nested

=item1 B<Explore>
    =item2 L<Raku Blog Aggregator|https://planet.raku.org/>
    =item2 L<Rakudo Weekly|https://rakudoweekly.blog/>
    =item2 L<The Weekly Challenge |https://perlweeklychallenge.org/>
    =item2 L<Raku Advent Calendar|https://raku-advent.blog/>

=end nested
=end React


Built with L<Podlite|https://podlite.org> — the markup and publishing tools behind this site.


=begin React :component<CookieConsent> :id<CookieConsent> :buttonCaption("Got it!")
=para
This website uses cookies for analytics.
=end React


RussianStem

RussianStem implementation

Lingua::Stem::Russian v0.1.0

Authors

License

Dependencies

Test Dependencies

Provides

Documentation