check-jacobi ( m -- m )

Vocabulary

math.extras.private

Inputs

m

an object

Outputs

m

an object

Definition

USING: combinators.short-circuit kernel math ;

IN: math.extras.private

: check-jacobi ( m -- m )
    dup { [ integer? ] [ 0 > ] [ odd? ] } 1&&
    [ "modulus must be odd positive integer" throw ] unless ;