(lychrel?) ( n iteration -- ? )

Vocabulary

project-euler.055.private

Inputs

n	an object
iteration	an object

Outputs

?

an object

Definition

USING: kernel math project-euler.common ;

IN: project-euler.055.private

: (lychrel?) ( n iteration -- ? )
    dup 50 < [
        [ add-reverse ] dip over palindrome?
        [ 2drop f ] [ 1 + (lychrel?) ] if
    ] [ 2drop t ] if ;