Zadatak Prolog 22/10/2016

/* Poslednje pojavljivanje cifre C u N s desna na levo */
poziv(N, C, R):- zad(N, C, 1, 0, R).
check(A, A, _, D, D).
check(A, B, C, _, C):- A =\= B.
zad(N, _, _, A, A):- N =:= 0, A > 0.
zad(N, C, BR, A, R):- N > 0, N1 is N div 10, BR1 is BR + 1, CIF is N mod 10,
    check(C, CIF, A, BR, A1), zad(N1, C, BR1, A1, R).