Simplify totient in math.primes.factors
parent
0d166264c8
commit
12b24af934
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue