weights>bytes ( weights -- array )

Vocabulary

unicode.collation.private

Inputs

weights

an object

Outputs

array

an object

Definition

USING: accessors combinators combinators.smart kernel math
sequences ;

IN: unicode.collation.private

: weights>bytes ( weights -- array )
    [
        {
            [ [ primary>> ] append-weights { 0 } ]
            [ [ secondary>> ] append-weights { 0 } ]
            [ [ tertiary>> ] append-weights { 0 } ]
            [
                [
                    [ secondary>> ] [ tertiary>> ] bi
                    [ zero? ] both?
                ] reject [ variable-weight ] map
            ]
        } cleave
    ] { } append-outputs-as ;