category# ( char -- n )


Vocabulary
unicode.data

Definition
USING: kernel math.order sequences unicode.data.private ;

IN: unicode.data

: category# ( char -- n )
dup category-map ?nth
[ ] [
dup 917505 917631 between?
[ drop 26 ] [ 917760 917999 between? 5 29 ? ] if
] ?if ;