both-bases? ( n -- ? )

Vocabulary

project-euler.036.private

Inputs

n

an object

Outputs

?

an object

Definition

USING: combinators.short-circuit kernel math.parser
project-euler.common sequences ;

IN: project-euler.036.private

: both-bases? ( n -- ? )
    { [ palindrome? ] [ >bin dup reverse = ] } 1&& ;