Помогите пожалуйста решить задачу на Prolog, край как надо. Или если есть готовая, скиньте (договоримся).

Множественное число большинства английских существительных получается путем добавления буквы "s" к форме единственного числа. Но если существительное заканчивается буквой "y", следующей за согласной, множественное число образуется путем замены буквы "y" на сочетание "ies"; если же существительное заканчивается буквой "o", следующей за согласной, множественное число образуется путем добавления сочетания "es". Напишите утверждения для предиката множественное_число/2, которые задают все эти правила. Указание. Воспользуйтесь предикатом name/2.

mn(X,Y):-
reverse(X,[111,D|T]),
member(D,[113,119,114,116,112,115,100,102,103,104,106,107,108,122,120,99,118,98,110,109]),
reverse([111,D|T],W),
append(W,[101,115],Y),!.
mn(X,Y):-
reverse(X,[121|T]),
reverse(T,T1),
append(T1,[105,101,115],Y),!.

mn(X,Y):-
append(X,[115],Y),!.

m(X,Y):-
name(X,X1),
mn(X1,Y1),
name(Y,Y1).

__________________
Помощь в Вашей учебе!vicky_kaz@mail.ru
ICQ 482381113