pad-back ( matrix -- matrix )

Vocabulary

project-euler.011.private

Inputs

matrix

an object

Outputs

matrix

an object

Definition

USING: kernel sequences ;

IN: project-euler.011.private

: pad-back ( matrix -- matrix )
    <reversed> [ length <iota> [ 0 <repetition> ] map ] keep
    [ <reversed> append ] 2map ;