sigma-map ( string -- string )

Vocabulary

unicode.case.private

Inputs

string

an object

Outputs

string

an object

Definition

USING: kernel sequences splitting ;

IN: unicode.case.private

: sigma-map ( string -- string )
    { 931 } split [
        [
            [ { 963 } ]
            [ dup first (uncased)? 962 963 ? prefix ] if-empty
        ] map
    ] with-rest concat fix-sigma-end ; inline