next-all-same ( x n -- n )

Vocabulary

project-euler.052.private

Inputs

x	an object
n	an object

Outputs

n

an object

Definition

USING: kernel math ;

IN: project-euler.052.private

: next-all-same ( x n -- n )
    dup candidate? [
        2dup swap map-nx all-same-digits?
        [ nip ] [ 1 + next-all-same ] if
    ] [ 1 + next-all-same ] if ;