reversed-digits ( n -- list )

Vocabulary

rosetta-code.luhn-test

Inputs

n

an object

Outputs

list

an object

Definition

USING: kernel math sequences ;

IN: rosetta-code.luhn-test

: reversed-digits ( n -- list )
    { } swap [ dup 0 > ] [ 10 /mod swapd suffix swap ] while
    drop ;