Задача на строки с использованием символов Пролог - Prolog

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

Задача. Дана строка. Определить сколько в ней символов "*" и "!". Нужно написать и оформить на Прологе

Решение задачи: «Задача на строки с использованием символов Пролог»

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

                            predicates
counter(string,integer)
 
clauses
counter("",0).
counter(S,N) :- frontchar(S,C,Q), C='*', counter(Q,N1), N=N1+1.
counter(S,N) :- frontchar(S,C,Q), C='!', counter(Q,N1), N=N1+1.
counter(S,N) :- frontchar(S,C,Q), C<>'*', C<>'!',counter(Q,N).
                        