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