max-children ( seq -- seq )

Vocabulary

project-euler.common.private

Inputs

seq

an object

Outputs

seq

an object

Definition

USING: kernel make math math.order project-euler.common
sequences ;

IN: project-euler.common.private

: max-children ( seq -- seq )
    [ dup length 1 - <iota> [ nth-pair max , ] with each ] { }
    make ;