Компьютерный морфологический разбор слов русского языка

/* программа по распознаванию морфологии слов русского языка */
/* по окончанию слова */
/* язык программирования ПРОЛОГ */

domains
Слово = string

predicates
морфология(Слово,Слово Основа)
nondeterm исключение(Слово,Слово Основа)
nondeterm правило(Слово Аффикс, Слово АффиксОсновы)
nondeterm аффикс(Слово Корень, Слово, Слово Аффикс)

clauses
/* отрывок и базы знаний по исключениям */
/* исключения из правила разбора слова для "неправильных" слов */
исключение("рек","река"). исключение("сел","сесть"). 
исключение("кровать","кровать").
/* отрывок из базы правил разбора для правильных слов */
/* для глаголов */
правило("нули","ать"). правило("нул","ать"). 
правило("еть","ать"). правило("ает","ать"). 
правило("ал","ать"). правило("ул","ать"). 
правило("ули","ать").
/* для прилагательных */
правило("вая","вый"). правило("вые","вый"). 
правило("ая","ой"). правило("ие","ой"). 
правило("ую","ой").

/* предикат осуществляющий перебор всех вариантов */
/* аффиксов для этого слова */
аффикс("",Аффикс,Аффикс).
аффикс(Корень,Слово,Аффикс):- frontchar(Слово,Буква,Слово1), аффикс(Корень1,Слово1,Аффикс), frontchar(Корень,Буква,Корень1).
/* сначала просмотри все исключения */
морфология(Слово,Осн):- исключение(Слово,Осн),!.
/* если не удачно, то переберем все аффиксы слова */
морфология(Слово,Осн):- аффикс(Корень,Слово,Аффикс), правило(Аффикс,АффиксиОсн), concat(Корень,АффиксиОсн,Осн),!.
/* если неудачно, то значит слово несклоняемо */
морфология(Слово,Слово):-!.
/* вызов предиката морфологического разбора */
Goal морфология("зеленую",Слово).

/* программа по распознаванию морфологии слов руссского языка */
/* по окончанию и приставке слова */
/* язык программирования РЕФАЛ 5 */
/* автор Ермолаев Д.С. www.icreator.ru */
/* ввод одного слова с консоли */
$ENTRY Go { = <Prout <Question (<Card>) >>; };
/* таблица1. слова, которые имеют неправильное окончание */
WordsMissTable { = ( ('сел') 'сесть' ) ( ('рек') 'река' ) ( ('кровать') 'кровать' ) ( ('скоро') 'скоро' )
} ;
/* таблица2. окончания, по которым можно определить основу */
CompletionTable { = /* для глаголов */ ( ('нули') 'ать') ( ('нул') 'ать') ( ('ает') 'ать') ( ('еть') 'ать') ( ('еч') 'ать') ( ('ал') 'ать') ( ('ел') 'ать') /* для прилагательных */ ( ('вые') 'вый') ( ('вая') 'вый') ( ('ая') 'ой') ( ('ие') 'ой') ( ('ую') 'ой')
};
/* сама программа распознавания морфологической формы слова */
Question {
/* берем слово и ищем подходящее по шаблону в таблице1 */ (e.Word), <WordsMissTable>: e.L((e.Word)e.Qst)e.R = e.Qst;
/* иначе, берём окончание слова и ищем по шаблону в таблице2 */ (e.1 e.End), <CompletionTable>: e.L((e.End)e.Qst)e.R = e.1 e.Qst ;
/* иначе, слово неизменяемо */ (e.1) = e.1;
};