如何在Haskell中实现字符串反转函数

在Haskell中，可以使用递归和模式匹配来实现字符串反转函数。下面是一个简单的实现示例：

reverseString :: String -> String
reverseString [] = []     -- 如果输入字符串为空，则返回空字符串
reverseString (x:xs) = reverseString xs ++ [x]    -- 将字符串第一个字符移动到结果字符串的末尾，递归地对剩余部分进行反转

-- 使用例子
main :: IO ()
main = do
    let input = "Hello, World!"
    let reversed = reverseString input
    putStrLn reversed

在上面的代码中，reverseString函数使用了模式匹配来处理不同情况。如果输入字符串为空，则直接返回空字符串。否则，函数会将字符串的第一个字符放入递归调用的结果字符串的末尾，并对剩余部分进行反转。这样，经过递归调用和字符交换，最终得到了字符串的反转结果。

在main函数中，定义了一个输入字符串"Hello, World!"，并将其传递给reverseString函数进行反转。最后，使用putStrLn函数将反转后的字符串打印出来。

使用上述代码，运行程序将输出!dlroW ,olleH，即输入字符串的反转结果。