next-keys ( key -- keys )


Vocabulary
project-euler.164.private

Inputs
keyan object


Outputs
keysan object


Definition
USING: arrays kernel math sequences ;

IN: project-euler.164.private

: next-keys ( key -- keys )
[ last ] [ 10 swap sum - <iota> ] bi [ 2array ] with map ;