package stem

  1. Overview
  2. Docs
A stemmer of words for few languages

Install 

dune-project
 Dependency

github.com Readme Changelog MIT License Edit opam file Versions (2)

Authors

  1. R
    Romain Calascibetta <romain.calascibetta@gmail.com>

Maintainers

  1. R
    Romain Calascibetta <romain.calascibetta@gmail.com>

Sources

stem-0.0.1.tbz
sha256=ec121bc02bca7121ce04cd346648d0432826be12dabf386d064795197cbf0275
sha512=f45989d23cc1211df3c8a9c3a164a7f853e6a1cb1274061f65c8c7e5b631a8a88c675c76b5d939da6777d571f63ce59d5b18940abc5fddb944ca402bc095b1ca

doc/src/stem.stopwords/stopwords.ml.html

Source file stopwords.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
let words =
  [
    ("arabic", Arabic.words);
    ("danish", Danish.words);
    ("dutch", Dutch.words);
    ("english", English.words);
    ("finnish", Finnish.words);
    ("french", French.words);
    ("german", German.words);
    ("hungarian", Hungarian.words);
    ("indonesian", Indonesian.words);
    ("italian", Italian.words);
    ("norwegian", Norwegian.words);
    ("portuguese", Portuguese.words);
    ("russian", Russian.words);
    ("spanish", Spanish.words);
    ("swedish", Swedish.words);
  ]

let words =
  let languages = Snowball.languages in
  let fn (language : Snowball.Language.t) =
    let fn (str, _words) = (language :> string) = str in
    match List.find_opt fn words with
    | Some (_, words) -> Some (language, words)
    | None -> None in
  List.filter_map fn languages