Norwegian stemming algorithm

Links to resources

• Scandinavian language stemmers
• Javascript demo
• The stemmer in Snowball
• Sample Norwegian vocabulary
• Its stemmed equivalent
• Norwegian stop word list (UTF-8 encoding)

Here is a sample of Norwegian vocabulary, with the stemmed forms that will be generated by this algorithm:

The stemming algorithm

The Norwegian alphabet includes the following additional letters,

æ   å   ø

The following letters are vowels:

a   e   ê   i   o   ò   ó   ô   u   y   æ   å   ø

R2 is not used: R1 is defined in the same way as in the German stemmer. (See the note on R1 and R2.)

Define a valid s-ending as one of

b   c   d   f   g   h   j   l   m   n   o   p   t   v   y   z,
or r not preceded by e,
or k not preceded by a vowel.

Do each of steps 1, 2 and 3.

Step 1:

Search for the longest among the following suffixes in R1, and perform the action indicated.

(a) a   e   ede   ande   ende   ane   ene   hetene   en   heten   ar   er   heter   as   es   edes   endes   enes   hetenes   ens   hetens   ets   et   het   ast

delete

(b) ers

find the longest suffix preceding ers, and perform the action indicated.

(i> amm   ast   ind   kap   kk   lt   nk   omm   pp   v   øst

do nothing

(ii> giv   hav   skap

delete ers suffix

(c) s

delete if preceded by a valid s-ending

(d) erte   ert

replace with er

(Note that only the suffix needs to be in R1, the letter of the valid s-ending is not required to be.)

Step 2:

If the word ends dt or vt in R1, delete the t.

(For example, meldt → meld, operativt → operativ)

Step 3:

Search for the longest among the following suffixes in R1, and if found, delete.

leg   eleg   ig   eig   lig   elig   els   lov   elov   slov   hetslov

Design Notes

Some other accented vowels are used in a small number of Norwegian words but these are deliberately not included in the list of vowels for this algorithm. This is not due to the small number of affected words but because including them doesn't actually improve the results of stemming. In most cases it would make no difference, but for è the reasoning is more subtle. Including it would make one difference - it would conflate forms of léta (to paint) but lét is both the imperative of léta and the past tense of la (to let/allow) so overall this conflation doesn't seem an improvement.

History of functional changes to the algorithm

• Snowball 2.0.0: s-ending definition adjusted to only include k when preceded by a non-vowel.
• Snowball 2.3.0: Improve handling of words ending ers.
• Snowball 2.3.0: Include ê, ò, ó and ô in the list of vowels.

The same algorithm in Snowball

routines (
           mark_regions
           main_suffix
           consonant_pair
           other_suffix
)

externals ( stem )

integers ( p1 x )

groupings ( v s_ending )

stringescapes {}

/* special characters */

stringdef ae   '{U+00E6}'
stringdef ao   '{U+00E5}'
stringdef e^   '{U+00EA}'  // e-circumflex
stringdef o`   '{U+00F2}'  // o-grave
stringdef o'   '{U+00F3}'  // o-acute
stringdef o^   '{U+00F4}'  // o-circumflex
stringdef o/   '{U+00F8}'

define v 'ae{e^}io{o`}{o'}{o^}uy{ae}{ao}{o/}'

define s_ending  'bcdfghjlmnoptvyz'

define mark_regions as (

    $p1 = limit

    test ( hop 3 setmark x )
    goto v  gopast non-v  setmark p1
    try ( $p1 < x  $p1 = x )
)

backwardmode (

    define main_suffix as (
        setlimit tomark p1 for ([substring])
        among(

            'a' 'e' 'ede' 'ande' 'ende' 'ane' 'ene' 'hetene' 'en' 'heten' 'ar'
            'er' 'heter' 'as' 'es' 'edes' 'endes' 'enes' 'hetenes' 'ens'
            'hetens' 'ets' 'et' 'het' 'ast'
                (delete)
            'ers'
                (
                  among (
                    'amm' 'ast' 'ind' 'kap' 'kk' 'lt' 'nk' 'omm' 'pp' 'v'
                    '{o/}st'
                        ()
                    'giv' 'hav' 'skap' ''
                        (delete)
                  )
                )
            's'
                (s_ending or ('r' not 'e') or ('k' non-v) delete)
            'erte' 'ert'
                (<-'er')
        )
    )

    define consonant_pair as (
        test (
            setlimit tomark p1 for ([substring])
            among(
                'dt' 'vt'
            )
        )
        next] delete
    )

    define other_suffix as (
        setlimit tomark p1 for ([substring])
        among(
            'leg' 'eleg' 'ig' 'eig' 'lig' 'elig' 'els' 'lov' 'elov' 'slov'
            'hetslov'
                (delete)
        )
    )
)

define stem as (

    do mark_regions
    backwards (
        do main_suffix
        do consonant_pair
        do other_suffix
    )
)