(euler148) ( x -- y )

Vocabulary

project-euler.148.private

Inputs

x

an object

Outputs

y

an object

Definition

USING: sequences ;

IN: project-euler.148.private

: (euler148) ( x -- y ) >base7 0 [ (use-digit) ] reduce-index ;