roman-range-check ( n -- n )

Vocabulary

roman.private

Inputs

n

an object

Outputs

n

an object

Definition

USING: kernel math.order ;

IN: roman.private

: roman-range-check ( n -- n )
    dup 1 10000 between? [ roman-range-error ] unless ;