(pollard-rho-brent-factors) ( n! -- )

Vocabulary

math.primes.pollard-rho-brent

Inputs

n!

an object

Outputs

None

Definition

USING: kernel make math math.primes ;

IN: math.primes.pollard-rho-brent

:: (pollard-rho-brent-factors) ( n! -- )
    n brent-factor :> factor factor prime?
    [ factor , ] [ factor pollard-rho-brent-factors % ] if
    n factor = [
        n factor /i dup prime?
        [ , ] [ (pollard-rho-brent-factors) ] if
    ] unless ;