number>digits ( n -- seq )

Vocabulary

project-euler.common

Inputs

n

an object

Outputs

seq

an object

Definition

USING: kernel math sequences ;

IN: project-euler.common

: number>digits ( n -- seq )
    [ dup 0 = not ] [ 10 /mod ] produce reverse! nip ;