Count in factors: Difference between revisions

Content added Content deleted

Inline

@@ Line 132: / Line 132: @@
                (link D)
                (setq M (sqrt (setq N (/ N D)))) ) )
-         (or (= 1 N) (link N)) ) ) )
+         (link N) ) ) )
 (for N 20
-   (prinl N ": " (or (glue " * " (factor N)) 1)) )</lang>
+   (prinl N ": " (glue " * " (factor N))) )</lang>
 Output:
 <pre>1: 1