Revision as of 06:44, 24 December 2010 (view source) rosettacode>Abu (Explicitly including the factor function) ← Older edit		Revision as of 08:19, 24 December 2010 (view source) rosettacode>Abu (Allow 1 in result) Newer edit →
Line 132: (link D) (setq M (sqrt (setq N (/ N D)))) ) ) ~~(or (= 1 N)~~ (link N)) ) ) ) (for N 20 (prinl N ": " ~~(or~~ (glue " * " (factor N)~~) 1~~)) )</lang> Output: <pre>1: 1

Count in factors (view source)