Разработать рекурсивную программу для решения следующей задачи.

[amti]

В числе, введённом пользователем, подсчитать количество вхождений некоторой цифры (искомую цифру указывает пользователь).

[Abstraction]

Что-то в таком духе:

countDigitsAcc 0 digit acc = acc

countDigitsAcc num digit acc = if (equals (mod num 10) digit)
    then (countDigits (div num 10) digit (+ 1 acc))
    else (countDigits (div num 10) digit acc)

countDigits num digit = countDigitsAcc num digit 0

[rrrFer]

p([], _, 0).
p([C|T], H, NN):-
  C is H, p(T, H, N), NN is N + 1, !;
  p(T, H, NN).

использовать примерно так:

test:- 
  read(S), read(C),
  integer(S), integer(C), C >= 0, C < 10,

  string_to_list(S, L1), string_to_list(C, L2), L2 = [Ch|_],

  p(L1, Ch, N),
  write(N).