format-column ( seq -- seq )

Vocabulary

strings.tables.private

Inputs

seq

an object

Outputs

seq

an object

Definition

USING: kernel math math.order sequences strings.tables ;

IN: strings.tables.private

: format-column ( seq -- seq )
    dup [ cell-length ] maximum-by cell-length [
        over cell-length [-]
        [ 32 <repetition> append ] unless-zero
    ] curry map! ;