Анализ состояния девятисегментного индикатора с цифрой - Prolog

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

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

Решение задачи: «Анализ состояния девятисегментного индикатора с цифрой»

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

                            clauses
unite("   "," /|","   ","  |","   "):- write("1").
unite("---","  |","---","|  ","---"):- write("2").
unite("---","  |","   "," / ","---"):- write("2").
unite("---","  |","---","  |","---"):- write("3").
unite("---"," / ","---"," / ","---"):- write("3").
unite("   ","| |","---","  |","   "):- write("4").
unite("---","|  ","---","  |","---"):- write("5").
unite("---","|  ","---"," / ","   "):- write("5").
unite("   "," / ","---","| |","---"):- write("6").
unite("---","|  ","---","| |","---"):- write("6").
unite("---","  |","   ","  |","   "):- write("7").
unite("---"," / ","   ","|  ","   "):- write("7").
unite("---","| |","---","| |","---"):- write("8").
unite("---","| |","---","  |","---"):- write("9").
unite("---","| |","---"," / ","   "):- write("9").
unite("---","| |","   ","| |","---"):- write("0").
                        