Подсчитать, сколько раз встречается некоторая буква в строке

06.01.2012, 15:34. **Показов** 5320. **Ответов** 5

Author24 — интернет-сервис помощи студентам

Подсчитать, сколько раз встречается некоторая буква в строке. Строка и буква должны вводиться с клавиатуры. Для разделения строки на символы использовать стандартный предикат frontchar (String, Char, StringRest), позволяющий разделять строку String на первый символ Char и остаток строки StringRest.

P.S.: программу написал с хвостовой рекурсией, все работает. Но вот теперь нужно сделать чтобы рекурсия была не хвостовая

Не знаю как это сделать, help me please

Prolog

PREDICATES
count(string, char, integer)
CLAUSES
count(Str, Ch, Counter):-Str <> "", frontchar(Str, H, T), H = Ch, NewCounter = Counter + 1, count(T, Ch, NewCounter).
count(Str, Ch, Counter):-Str <> "", frontchar(Str, H, T), H <> Ch, count(T, Ch, Counter).
count(_, Ch, Counter):-write("Symbol: ", Ch, " - ", Counter).
GOAL
write("Input string $ "), readln(Str),
write("Input char $ "), readchar(Ch),
Amount = 0, count(Str, Ch, Amount).

@Грымзик · 06.01.2012, 17:03

Prolog

PREDICATES
count(string, char, integer)
CLAUSES
count(Str, Ch, Counter):-Str <> "", frontchar(Str, H, T), H = Ch, count(T, Ch, NewCounter),Counter = NewCounter + 1.
count(Str, Ch, Counter):-Str <> "", frontchar(Str, H, T), H <> Ch, count(T, Ch, Counter).
count(_, _, 0).
GOAL
write("Input string $ "), readln(Str),
write("Input char $ "), readchar(Ch),
count(Str, Ch, Amount),write(Amount).

06.01.2012, 18:35

Thank you

@aag · 06.01.2012, 18:53

Prolog

PREDICATES
count(string, char, integer)
CLAUSES
count(Str, Ch, Counter):-Str <> "", frontchar(Str, H, T), H = Ch, count(T, Ch, NewCounter),Counter = NewCounter + 1.
count(Str, Ch, Counter):-Str <> "", frontchar(Str, H, T), H <> Ch, count(T, Ch, Counter).
count(_, _, 0).

Prolog

Goal: count("fignya kakayato",'a',Out)
Out=4
Out=4
Out=4
Out=3
Out=3
Out=2
Out=2
Out=1
Out=1
Out=1
Out=0
Out=0
Out=0
Out=0
Out=0
Out=0
16 Solutions

ой-ёй-ёй...

@Грымзик · 06.01.2012, 20:48

Prolog

1
2

count(Str, Ch, Counter):-Str <> "", frontchar(Str, H, T), H = Ch,!, count(T, Ch, NewCounter),Counter = NewCounter + 1.
count(Str, Ch, Counter):-Str <> "",!, frontchar(Str, H, T), H <> Ch, count(T, Ch, Counter).

@aag · 06.01.2012, 22:40

Ага)))
Трудно в начале Января)))

Вы всё больше со SWI, кажется. Там строки "другие".

Prolog

1
2
3

count(Str,Ch,Counter):- frontchar(Str,Ch,T), !, count(T,Ch,NewCounter), Counter=NewCounter+1.
count(Str,Ch,Counter):- frontchar(Str,_,T), !, count(T,Ch,Counter).
count(_,_,0).

А у меня лично паранойя избавляться от лишних фронтчаров(в Трубе это не "голова", в Трубе это экшн)...

Prolog

count(A,B,C):- frontchar(A,D,E), !, count(E,B,F), d(B,D,G), C=F+G.
count(_,_,0).
 
d(A,A,1):- !.   d(_,_,0).

wn
	06.01.2012, 18:35	3
	Thank you

	06.01.2012, 22:40