lucas-lehmer-guard ( obj -- obj )

Vocabulary

math.primes.lucas-lehmer.private

Inputs

obj

an object

Outputs

obj

an object

Definition

USING: combinators.short-circuit kernel math
math.primes.lucas-lehmer ;

IN: math.primes.lucas-lehmer.private

: lucas-lehmer-guard ( obj -- obj )
    dup { [ integer? ] [ 0 > ] } 1&&
    [ invalid-lucas-lehmer-candidate ] unless ;