Simplify totient in math.primes.factors

2008-01-14 02:38:23 -05:00 · 2008-01-14 02:38:23 -05:00 · 12b24af934
parent 0d166264c8
commit 12b24af934
1 changed files with 15 additions and 15 deletions
--- a/extra/math/primes/factors/factors.factor
+++ b/extra/math/primes/factors/factors.factor
@ -37,5 +37,5 @@ PRIVATE>
    dup 2 < [
        drop 0
    ] [
-   [ unique-factors dup 1 [ 1- * ] reduce swap product / ] keep *
+        dup unique-factors dup 1 [ 1- * ] reduce swap product / *
    ] if ; foldable