(prime?) ( n -- ? )

Vocabulary
math.primes.private

Definition

USING: kernel math math.primes.miller-rabin ;

IN: math.primes.private

: (prime?) ( n -- ? )
    dup 8999999 <= [ look-in-bitmap ] [ miller-rabin ] if ;