Revision as of 07:09, 2 August 2012 (view source) rosettacode>Ttmrichter (→‎{{header\|Mercury}}) ← Older edit		Revision as of 06:09, 3 August 2012 (view source) rosettacode>Ttmrichter (→‎fac.m) Newer edit →
Line 1,338: factor(N, X + 1, Limit, !Accumulator) ). :- func factor(int~~::in~~) = (list(int)~~::out) is det~~. %:- mode factor(in) = out is det. factor(N) = Factors :- factor(N, Factors).

Factors of an integer (view source)