integer->digits ( x -- xs )

Vocabulary

rosetta-code.long-multiplication

Inputs

x

an object

Outputs

xs

an object

Definition

USING: kernel math sequences ;

IN: rosetta-code.long-multiplication

: integer->digits ( x -- xs )
    { } swap [ dup 0 > ] [ 10 /mod swap [ prefix ] dip ] while
    drop ;