Haskell'deki bir dizeden aksanları nasıl temizlersiniz?

Question

Bir dizeden aksanları çıkarmak için bir işlev istiyorum. Örnek giriş/çıkış: text-icu kütüphane Unicode araçlardan çeşitli içerir

regardé -> regarde 
fête -> fete 

Answer 1

. s ürünümüzü Text'a dönüştürmek için text kütüphanesine de ihtiyacımız olacak. Text girdi String dönüştürme

1. :, aşağıdaki süreci ile aksan kaldırabilir yüklü olanlar bağımlılıkları ile

   build-depends:  --- other packages... 
           , text-icu >= 0.7.0.1 && < 1 
           , text 
   

   : Benim Cabal dosyasında build-depends aşağıdaki iki satırı ekleyerek onları yüklü

2. girişi (bu neden gerekli olduğunu için documentation bakınız)
3. aksan filtreleyin Normale
4. String'a dönüş.

Tüm bunları göz önünde tutarak, aşağıdaki fonksiyonu ile gelip: Bir String dönüştürmek için gerekmiyorsa

import Data.List 
import qualified Data.Text as T 
import Data.Text.ICU.Char 
import Data.Text.ICU.Normalize 

canonicalForm :: String -> String 
canonicalForm s = T.unpack noAccents 
    where 
    noAccents = T.filter (not . property Diacritic) normalizedText 
    normalizedText = normalize NFD (T.pack s) 

, sen T.pack ve T.unpack aramaları atlayabilirsiniz.