Revision as of 08:19, 24 December 2010 (view source) rosettacode>Abu (Allow 1 in result) ← Older edit		Revision as of 08:30, 24 December 2010 (view source) rosettacode>Abu (Simplified) Newer edit →
Line 128: (let (D 2 L (1 2 2 . (4 2 4 2 4 6 2 6 .)) M (sqrt N)) (while (>= M D) (~~ifn~~if (=0 (% N D)) (~~inc~~setq 'DM (~~pop~~sqrt 'L(setq N (/ N (link D))))) (~~link~~inc 'D (pop 'L)) ) ) ~~(setq M (sqrt (setq N (/ N D)))) ) )~~ (link N) ) ) )

Count in factors: Difference between revisions

Count in factors (view source)