在Haskell中查找Char的Unicode脚本

Question

我想编写一个函数来检查a Char代表一个西里尔字母,纯粹出于教学原因.俄语的简单近似是

isCyrillic c = 
    let lc = toLower c 
    in '?' <= lc && lc <= '?'

但我不喜欢它,因为它不处理其他使用西里尔语的语言.我可以硬编码范围:

U+0400–U+04FF Cyrillic
U+0500–U+052F Cyrillic Supplement
U+2DE0–U+2DFF Cyrillic Extended-A
U+A640–U+A69F Cyrillic Extended-B
U+1C80–U+1C8F Cyrillic Extended-C

但这似乎也不是很好的做法.

理想情况下,功能就是这样

isCyrillic c = unicodeScript c == Cyrillic

但是这假定存在一个枚举Unicode脚本的类型(Unicode范围也可以).某个地方有吗？

Answer 1

property来自text-icu的Data.Text.ICU.Char似乎符合法案:

import Data.Text.ICU.Char

isCyrilic c = property Block c == Cyrillic