coalesce ( rows -- rows' )

Vocabulary

farkup

Inputs

rows

an object

Outputs

rows'

an object

Definition

USING: kernel sequences ;

IN: farkup

: coalesce ( rows -- rows' )
    V{ } clone [
        [
            dup ?last ?last 92 =
            [ [ pop "|" rot 3append ] keep ] when push
        ] curry each
    ] keep ;