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

/* язык программирования РЕФАЛ 5 */

/* автор Ермолаев Д.С. [email protected] */

/* ввод одного слова с консоли */

$ENTRY Go { = <Prout <Question (<Card>) >>; };

/* таблица1. слова, которые имеют неправильное окончание */

WordsMissTable { =

( ('сел') 'сесть' )

( ('рек') 'чего' )

} ;

/* таблица2. окончания, по которым можно определить основу */

CompletionTable { =

/* для глаголов */

( ('нули') 'ать')

( ('нул') 'ать')

( ('ает') 'ать')

( ('еть') 'ать')

( ('еч') 'ать')

( ('ал') 'ать')

( ('ел') 'ать')

/* для прилагательных */

( ('вые') 'вый')

( ('вая') 'вый')

( ('ая') 'ой')

( ('ие') 'ой')

( ('ую') 'ой')

};

/* сама программа распознавания морфологической формы слова */

Question {

/* берем слово и ищем подходящее по шаблону в таблице1 */