Numbers with prime digits whose sum is 13: Difference between revisions
Content added Content deleted
| Line 1,478: | Line 1,478: | ||
digit_sum(N, A0, M) :- |
digit_sum(N, A0, M) :- |
||
divmod(N, 10, Q, R), |
divmod(N, 10, Q, R), |
||
plus(A0, R, A1) |
plus(A0, R, A1), |
||
digit_sum(Q, A1, M). |
digit_sum(Q, A1, M). |
||