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.2.tbz
sha256=830e8693a19996caa7745fc67c6d3655b29128d253ff78088e77faba9ad7b488
sha512=d89a8246864f204fbaa159d7c09517003838913944f4a6235b63efb8e4e96fb1872baaa8563392b8e3a4e2354baf363b5e15ed2899f60d8cbf66bbcfdb6d2d85

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