propagate-all ( triangle -- new-triangle )

Vocabulary

project-euler.common

Inputs

triangle

an object

Outputs

new-triangle

an object

Definition

USING: kernel project-euler.common.private sequences ;

IN: project-euler.common

: propagate-all ( triangle -- new-triangle )
    reverse unclip dup rot [ propagate dup ] map nip
    reverse swap suffix ;