PROLOG Zahlen ausgeben, die mit 7 enden und die Summe ihrer Ziffern ist größer als 100
Ich muss ein Prädikat erstellen, das eine numerische Liste erhält, und nur die Zahlen ausgeben, die mit 7 enden und die Summe der Ziffern größer als 100 ist.
Ich habe die Prädikate für Separated erstellt, aber ich brauche Hilfe, um eine Vereinigung der beiden Prädikate zu erstellen. Ich meine, die beiden Prädikate gehen in ein einziges Prädikat über. Das habe ich bisher getan:
%sum of digits greater than 100
multi(X):-
0 is X mod 100
sum([],0).
sum([P|Q],Z).
multi(P), sum(Q,Z1), Z is P + Z1.
sum([P|Q],Z).
not multi(P), sum(Q,Z).
%print the numbers that end in 7
end(Y):-
7 is Y mod 10.
listend([],0).
listend([P|Q]):-
end(P),write(P), nl, listend(Q).
listend([P|Q]):-
not(end(P)), listend(Q).