Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
Finding Factors
Hi, I need to write a rule to find all the factors of a given number, this is that i have so far: % "divisible without remainder function" dwr(X, M) :- 0 is X mod M. factors_of(X):- D is 1, findfactors(X, D). findfactors(X, D):- D = X, F is X / D, write(F). findfactors(X, D):- D < X...
