словосочетание без регулярного выражения

Question

Можно ли использовать слова без использования регулярных выражений в F #?

Я хочу знать, как я могу написать функцию F #, которая вводит строку и создает ее.

например.

input = "going" 
output = "go" 

Я не могу найти способ, чтобы написать код без использования регулярных выражений:. * Инг \ б и функции, которая будет почти как делать в C# без каких-либо преимуществ замены.

Semi псевдо код, что я пытаюсь написать это:

let stemming word = 
    match word 
    |(word-"ing")+ing -> (word-"ing") 

Answer 1

Вот функция, применяя простейшее правило, вытекающий:

let (|Suffix|_|) (suffix: string) (s: string) = 
    if s.EndsWith(suffix) then 
     Some(s.Substring(0, s.Length - suffix.Length)) 
    else 
     None 

let stem = function 
    | Suffix "ing" s -> s 
    | _ -> failwith "Not ending with ing" 

Parameterized active patterns делает шаблон более читаемыми и более удобным в данном случае. Если правила стебля осложняются, вы можете обновить активные шаблоны, чтобы функция stem не изменилась.

Answer 2

Быстрая немного прибегая к помощи показывает, насколько сложной вытекающие является: http://en.wikipedia.org/wiki/Stemming

стандарт, кажется, «Портер Algorithm », кажется, что несколько человек портировали его на .NET. Я считаю, что две версии C# и версия VB.net на домашней странице« Портер-стрим-алгоритм »: http://tartarus.org/martin/PorterStemmer/

I будет использовать одну из этих библиотек из F #, чтобы сделать вывод.