find-relative-prime ( n -- p )
Prime numbers

Prev:	random-prime ( numbits -- p )
Next:	find-relative-prime* ( n guess -- p )

Vocabulary
math.primes

Inputs

n	an integer

Outputs

p	an integer

Word description
Returns a number that is relatively prime to n.

Definition

USING: kernel random ;

IN: math.primes

: find-relative-prime ( n -- p )
    dup random find-relative-prime* ;