Elmの正規表現 文字列が全角カナだけで構成されるかをチェック

与えられた文字列が特定の正規表現にマッチするかをテストする関数を書いてみた。

例：全角のカナ文字と長音符および全角スペースにマッチする

import Regex

isAllKana : String -> Bool
isAllKana rawString =
    rawString
        |> Regex.replace Regex.All (Regex.regex "[ァ-ヶー\x3000]") (\{ match } -> "")
        |> String.toList
        |> List.length
        |> (==) 0

もっとエレガントな方法があるはずだが、とりあえず役に立つ…