split-long-subsystems ( costs -- costs' )

Vocabulary

format-using

Inputs

costs

an object

Outputs

costs'

an object

Definition

USING: kernel make sequences ;

IN: format-using

: split-long-subsystems ( costs -- costs' )
    [
        [
            dup first too-long?
            [ last split-subsystem% ] [ , ] if
        ] each
    ] { } make ;