Project Euler Problem 1 in Prolog

It is very hard to come up with Prolog answers to Project Euler. If you have any please add as a comment to problems posted here.

?- sum(0,1000,X) gives the answer
Continue reading…