Turbo Prolog. Нахождение гласной буквы, чаще всего встречающейся в строке

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

Всем привет. Есть код, который ищет все гласные в строке, но что-то не могу придумать как переделать предикат count так, чтобы выискивать часто встречаемую букву. Код:

domains
    s=string
    i=integer
    c=char
predicates
    glas(c)
    count(s,i)
clauses
    glas('e').glas('y').glas('u').
    glas('i').glas('o').glas('a').
    count("",0):-!.
    count(S,N):-
        frontchar(S,Xn,Sn),
        upper_lower(Xn,X),
        glas(X),//проверили, является ли символ строки гласной буквой
        count(Sn,N1),
        N=N1+1;
        frontchar(S,Xn,Sn),
        upper_lower(Xn,X),
        not(glas(X)),
        count(Sn,N),

Заодно, может, есть мысли по оптимизации проверки символа? Буду благодарен за подсказки и советы.

Решение задачи: «Turbo Prolog. Нахождение гласной буквы, чаще всего встречающейся в строке»

textual
                            Листинг программы 
                        
                            Illegal variable type for this position

Оцени полезность:

6 голосов , оценка 4 из 5

Похожие ответы