propagate ( bottom top -- newtop )

Vocabulary

project-euler.common.private

Inputs

bottom	an object
top	an object

Outputs

newtop

an object

Definition

USING: kernel math math.order sequences ;

IN: project-euler.common.private

: propagate ( bottom top -- newtop )
    [ over rest rot first2 max rot + ] map nip ;