文字の出現頻度を調べる

[*** Text版]

Data.Text.unpack :: Text -> Stringを使ってStringに変換してから，String版commonChars' :: String -> [(Char, Int)]を使って調べます．

インポート

code: (haskell)

import Data.Text as T

[** commonChars :: Text -> [(Char, Int)]]

code: (haskell)

commonChars :: Text -> (Char, Int)

commonChars = commonChars' . T.unpack

[*** String版]

インポート

code: (haskell)

import Data.List as L

import Data.Ord

[** commonChars' :: String -> [(Char, Int)]]

code: (haskell)

commonChars' :: String -> (Char, Int)

commonChars' = frequency

type RunLength a = (a, Int)

frequency :: Ord a => a -> RunLength a

frequency = L.sortBy (flip (comparing snd)) -- 4. ランレングスによる降順ソート

. L.map runLength -- 3. ランレングス付ける

. L.group -- 2. グループ化する

. L.sort -- 1. ソートする

runLength :: a -> RunLength a

runLength = (,) . L.head <*> L.length

評価例

code:_

>> :set -XOverloadedStrings

>> commonChars "3.14159265358979"