Haskell 程序检查两个字符串是否为字谜
在 Haskell 中，我们可以使用 sort 函数和 freqMap 检查给定的两个字符串是否为字谜。
什么是字谜?
字谜是通过重新排列不同单词或短语的字母形成的单词或短语，通常使用所有原始字母一次。
例如，"listen"一词是"silent"一词的字谜。字谜游戏、拼图和其他形式的娱乐中经常使用。
算法
步骤 1 - 导入 Data.List 模块以使用 sort 函数。
步骤 2 - 定义使用 sort 函数的 isAnagram 函数
步骤 3 - 程序执行将从主函数开始。main() 函数完全控制程序。它写为 main = do。在主函数中，两个字符串被传递给 isAnagram 函数。该函数的结果用于打印一条消息，指示两个字符串是否为字谜。
步骤 4 - 正在初始化名为"str1"和"str2"的变量。它将保存要检查是否为字母重排的字符串。
步骤 5 - 调用函数后，使用"putStrLn"语句将结果打印到控制台。
示例 1
在此示例中，isAnagram 函数通过对字符串进行排序并比较排序后的字符串是否相等来检查两个字符串是否为彼此的字母重排。Data.List 库中的 sort 函数用于对字符串进行排序。
import Data.List
isAnagram :: String -> String -> Bool
isAnagram str1 str2 = sort str1 == sort str2
main :: IO ()
main = do
let str1 = "listen"
let str2 = "silent"
if isAnagram str1 str2
then putStrLn "The two strings are anagrams of each other."
else putStrLn "The two strings are not anagrams of each other."
输出
The two strings are anagrams of each other.
示例 2
在此示例中，isAnagram 函数使用 freqMap 函数为两个输入字符串创建频率图，并比较频率图是否相等。freqMap 函数将字符串作为输入，并返回表示字符串中每个字符频率的 Map。Map.fromListWith 函数用于创建频率图，方法是创建一个表示每个字符及其频率的元组列表，然后将该列表与组合函数 ((+)) 一起传递给 Map.fromListWith，该函数将多次出现的字符的频率相加。
import Data.List
import Data.Map (Map)
import qualified Data.Map as Map
isAnagram :: String -> String -> Bool
isAnagram str1 str2 = freqMap str1 == freqMap str2
where freqMap = Map.fromListWith (+) . map (\c -> (c, 1))
main :: IO ()
main = do
let str1 = "listen"
let str2 = "silent"
if isAnagram str1 str2
then putStrLn "The two strings are anagrams of each other."
else putStrLn "The two strings are not anagrams of each other."
输出
The two strings are anagrams of each other.
示例 3
在此示例中，isAnagram 函数比较两个输入字符串的字符数。charCount 函数将字符串作为输入，并返回表示字符串中每个字符的计数的数组。accumArray 函数用于创建字符计数数组，方法是创建一个表示每个字符及其计数的元组列表，然后将列表连同初始值零和组合函数 ((+)) 一起传递给 accumArray，该函数将多次出现的字符的计数相加。
import Data.Array
isAnagram :: String -> String -> Bool
isAnagram str1 str2 = str1CharCount == str2CharCount
where str1CharCount = charCount str1
str2CharCount = charCount str2
charCount str = accumArray (+) 0 ('a', 'z') [(c, 1) | c <- str, c >= 'a' && c <= 'z']
main :: IO ()
main = do
let str1 = "listen"
let str2 = "silent"
if isAnagram str1 str2
then putStrLn "The two strings are anagrams of each other."
else putStrLn "The two strings are not anagrams of each other."
输出
The two strings are anagrams of each other.
结论
在 Haskell 中，我们可以通过使用排序函数、频率图或字符计数来检查两个传递的字符串是否为字谜。
