suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use available library function

Browse Source 
Missed this earlier
This commit is contained in:
Max New 2014-10-15 21:59:55 -04:00
parent b48710bab3
commit 01f8ff5eb8
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/redex-pkgs/redex-lib/redex/private/enumerator.rkt
View File

@ -15,8 +15,7 @@
(only-in math/number-theory (only-in math/number-theory
binomial binomial
integer-root integer-root
prime-divisors factorize)
prime-exponents)
"error.rkt") "error.rkt")
@ -1328,8 +1327,9 @@
(define (prime-factorize k) (define (prime-factorize k)
(apply append (apply append
(for/list ([divisor (in-list (prime-divisors k))] (for/list ([d-e (in-list (factorize k))])
[exponent (in-list (prime-exponents k))]) (define divisor (first d-e))
(define exponent (second d-e))
(for/list ([_ (in-range exponent)]) (for/list ([_ (in-range exponent)])
divisor)))) divisor))))
(module+ test (module+ test