Simplify totient in math.primes.factors

db4
Aaron Schaefer 2008-01-14 02:38:23 -05:00
parent 0d166264c8
commit 12b24af934
1 changed files with 15 additions and 15 deletions

View File

@ -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