filter-ignorable ( weights -- weights' )

Vocabulary

unicode.collation

Inputs

weights

an object

Outputs

weights'

an object

Definition

USING: accessors kernel math sequences ;

IN: unicode.collation

: filter-ignorable ( weights -- weights' )
    f swap [
        [ nip ] [ primary>> zero? and ] 2bi
        [ swap ignorable?>> or ]
        [ swap completely-ignorable? or not ] 2bi
    ] filter nip ;