Anonymous user
Factors of an integer: Difference between revisions
→fac.m: Corrected a problem where the code would duplicate factors if they're perfect square roots.
(→fac.m: Corrected a problem where the code would duplicate factors if they're perfect square roots.) |
|||
Line 1,352:
factor(N, X, Z, LC, L) :-
(X > Z ->
L = list.
;
(0 = N mod X ->
Line 1,389:
<pre><nowiki>$ mmc fac.m && ./fac 100 999 12345678 booger
factor(100, [1,2,4,5
factor(100) = [1,2,4,5
factor(999, [1,3,9,27,37,111,333,999])
factor(999) = [1,3,9,27,37,111,333,999]
|