Numbers with prime digits whose sum is 13: Difference between revisions

Content added Content deleted
Line 1,475: Line 1,475:
<lang Prolog>
<lang Prolog>
digit_sum(N, M) :- digit_sum(N, 0, M).
digit_sum(N, M) :- digit_sum(N, 0, M).

digit_sum(0, A, B) :- !, A = B.
digit_sum(0, A, B) :- !, A = B.
digit_sum(N, A0, M) :-
digit_sum(N, A0, M) :-
Retrieved from "https://rosettacode.org/wiki/Numbers_with_prime_digits_whose_sum_is_13"