Распознавание индикатора - Prolog

Формулировка задачи:

Здравствуйте, помогите пожалуйста, решить задачку, никак не могу сама справиться с ней( Распознавание индикатора. Написать программу, анализирующую состояние девятисегментного индикатора с цифрой и сообщающей распознанную цифру (аналогично распознаванию цифр почтового индекса на конверте). Учесть, что в написании цифр могут быть ошибки, об ошибках надо выдавать сообщения. Также учесть, что некоторые цифры могут быть изображены несколькими способами. В дополнение к задаче возможно сделать анализ ошибочных символов как вариантов недописанных цифр и выдавать сообщения об этом. заранее спасибо,всем откликнувшимся)

Решение задачи: «Распознавание индикатора»

textual
                            Листинг программы 
                        

                            predicates
number(string,string,string,string,string,integer).
error(string,string,string,string,string,integer).
find(string,string,string,string,string).
main.
 
clauses
number(" "," /|"," ","  |"," ",1).
number("_","  |"," "," / ","_",2).
number("_","  |","_","|  ","_",2).
number("_","  |","_","  |","_",3).
number("_"," / ","_"," / "," ",3).
 
error(" ","  |"," ","  |"," ",1).
error(" "," /|"," ","   "," ",1).
error(" "," / "," ","  |"," ",1).
error(" "," /|"," ","  |","_",1).
error(" ","  |"," "," / ","_",2).
 
find(A,B,C,D,E):-number(A,B,C,D,E,N),!,write("Vvedena cifra ",N),nl.
find(A,B,C,D,E):-error(A,B,C,D,E,N),!,write("V vvedennoi cifre oshibka. Vozmozno eto cifra ",N),nl.
find(_,_,_,_,_):-write("V vvedennoi cifre oshibka. Vozmoznih variantov ne naidenno."),nl.
 
main:-
readln(A),
readln(B),
readln(C),
readln(D),
readln(E),
find(A,B,C,D,E).
 
goal
main.
                        