>base7 ( x -- y )

Vocabulary

project-euler.148.private

Inputs

x

an object

Outputs

y

an object

Definition

USING: kernel math sequences ;

IN: project-euler.148.private

: >base7 ( x -- y ) [ dup 0 > ] [ 7 /mod ] produce nip ;