luhn? ( str -- ? )

Vocabulary

validators

Inputs

str

an object

Outputs

?

an object

Definition

USING: kernel math math.functions math.parser sequences ;

IN: validators

: luhn? ( str -- ? )
    string>digits <reversed>
    [ odd? [ 2 * 10 /mod + ] when ] map-index sum 10 divisor? ;