all-same-digits? ( seq -- ? )

Vocabulary

project-euler.052.private

Inputs

seq

an object

Outputs

?

an object

Definition

USING: grouping project-euler.common sequences sorting ;

IN: project-euler.052.private

: all-same-digits? ( seq -- ? )
    [ number>digits sort ] map all-equal? ;