greek_stemer.ex

defmodule GreekStemmer do
  @alphabet ~r/^[ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩ]+$/i

  def protected_words do
  end

  def exceptions do
  end

  def process(regex, word) do
    destructure [_, st, _], Regex.run(regex, word)

    st
  end

  def stem(word) do
    if should_stem?(word) do
      cond do
        st = process(~r/^(.+?)(ΑΔΕΣ|ΑΔΩΝ)$/u, word) ->
          if st =~ ~r/(ΟΚ|ΜΑΜ|ΜΑΝ|ΜΠΑΜΠ|ΠΑΤΕΡ|ΓΙΑΓΙ|ΝΤΑΝΤ|ΚΥΡ|ΘΕΙ|ΠΕΘΕΡ|ΚΑΠΛΑΜ|ΠΑΡ|ΨΑΡ|ΤΖΟΥΡ|ΤΑΜΠΟΥΡ)$/u do
            st
          else
            st <> "ΑΔ"
          end
        st = process(~r/^(.+?)(ΕΔΕΣ|ΕΔΩΝ)$/u, word) ->
         if st =~ ~r/(ΟΠ|ΙΠ|ΕΜΠ|ΥΠ|ΓΗΠ|ΔΑΠ|ΚΡΑΣΠ|ΜΙΛ)$/u do
           st <> "ΕΔ"
         else
           st
         end
        true ->
          word
      end
    else
      word
    end
  end


  def should_stem?(word) do
    word && String.length(word) > 3 && word =~ @alphabet
  end
end