factorion? ( n -- ? )

Vocabulary

project-euler.034.private

Inputs

n

an object

Outputs

?

an object

Definition

USING: kernel project-euler.common sequences ;

IN: project-euler.034.private

: factorion? ( n -- ? )
    dup number>digits [ digit-factorial ] map-sum = ;