solovay-strassen* ( n numtrials -- ? )

Vocabulary

math.primes.solovay-strassen

Inputs

n	an object
numtrials	an object

Outputs

?

an object

Definition

USING: combinators kernel math
math.primes.solovay-strassen.private ;

IN: math.primes.solovay-strassen

: solovay-strassen* ( n numtrials -- ? )
    {
        { [ over 1 <= ] [ 2drop f ] }
        { [ over even? ] [ drop 2 = ] }
        [ (solovay-strassen) ]
    } cond ;