check-legendere ( m -- m )

Vocabulary

math.extras.private

Inputs

m

an object

Outputs

m

an object

Definition

USING: kernel math.primes ;

IN: math.extras.private

: check-legendere ( m -- m )
    dup prime?
    [ "modulus must be prime positive integer" throw ] unless ;