Abundant, deficient and perfect number classifications: Difference between revisions

Content added Content deleted

Inline

@@ Line 869: / Line 869: @@
 {{out}}
 <pre>bag(Less(15043), Same(4), More(4953))</pre>
+=={{header|PicoLisp}}==
+<lang PicoLisp>(de accud (Var Key)
+   (if (assoc Key (val Var))
+      (con @ (inc (cdr @)))
+      (push Var (cons Key 1)) )
+   Key )
+(de factor-sum (N)
+   (let
+      (R NIL
+         D 2
+         L (1 2 2 . (4 2 4 2 4 6 2 6 .))
+         M (sqrt N)
+         N1 N
+         S 1 )
+      (while (>= M D)
+         (if (=0 (% N1 D))
+            (setq M
+               (sqrt (setq N1 (/ N1 (accud 'R D)))) )
+            (inc 'D (pop 'L)) ) )
+      (accud 'R N1)
+      (if
+         (and
+            (not (cdr R))
+            (= 1 (caar R)) )
+         (for I R
+            (one D)
+            (one M)
+            (for J (cdr I)
+               (setq M (* M (car I)))
+               (inc 'D M) )
+               (setq S (* S D)) )
+         (- S N) ) ) )
+(bench
+   (let
+      (A 0
+         D 0
+         P 0 )
+      (for I 20000
+         (setq @@ (factor-sum I))
+         (cond
+            ((< @@ I) (inc 'D))
+            ((= @@ I) (inc 'P))
+            ((> @@ I) (inc 'A)) ) )
+      (println D P A) ) )
+(bye)</lang>
+{{Output}}
+<pre>
+4 4953
+.593 sec
+</pre>
 =={{header|PL/I}}==