(use-digit) ( prev x index -- next )


Vocabulary
project-euler.148.private

Inputs
prevan object
xan object
indexan object


Outputs
nextan object


Definition
USING: kernel math math.functions ;

IN: project-euler.148.private

: (use-digit) ( prev x index -- next )
[ [ 1 + * ] [ sum-1toN 7 sum-1toN ] bi ] dip ^ * + ;