使用Python和Haskell构建的语言翻译工具示例

语言翻译工具是一种能够将一种语言的文字转换为另一种语言的工具。下面我将为您展示一个使用Python和Haskell构建的语言翻译工具的示例，并提供一些使用例子。

首先，让我们看一下Python的部分示例代码：

import requests

def translate_text(text, source_language, target_language):
    url = f"https://translate.googleapis.com/translate_a/single?client=gtx&sl={source_language}&tl={target_language}&dt=t&q={text}"
    response = requests.get(url)
    translation = response.json()[0][0][0]
    return translation

text = "Hello, how are you?"
source_language = "en"
target_language = "fr"
translation = translate_text(text, source_language, target_language)
print(f"Translation: {translation}")

上述代码使用了Python中的requests库来向Google Translate API发送请求，获取翻译结果。translate_text函数接收三个参数：需要翻译的文本、源语言和目标语言。通过构建一个API请求URL，并使用requests.get方法发送请求，然后解析返回结果获取翻译文本。

现在让我们看一下Haskell的示例代码：

{-# LANGUAGE OverloadedStrings #-}

import Network.HTTP.Simple
import Data.Aeson
import Data.ByteString.Char8 (pack)

data TranslationResponse = TranslationResponse {
    translatedText :: String
} deriving (Show, Generic)

instance FromJSON TranslationResponse

translateText :: String -> String -> String -> IO String
translateText text sourceLang targetLang = do
    request <- parseRequest $ "https://translate.googleapis.com/translate_a/single?client=gtx&sl=" ++ sourceLang ++ "&tl=" ++ targetLang ++ "&dt=t&q=" ++ text
    response <- httpJSON request :: IO (Response TranslationResponse)
    let translation = translatedText $ getResponseBody response
    return translation

main :: IO ()
main = do
    let text = "Hello, how are you?"
    let sourceLang = "en"
    let targetLang = "fr"
    translation <- translateText text sourceLang targetLang
    putStrLn $ "Translation: " ++ translation

上述代码使用了Haskell中的http-conduit和aeson库来发送HTTP请求和处理JSON数据。translateText函数接收三个参数：需要翻译的文本、源语言和目标语言。通过构建一个API请求URL，并使用parseRequest方法创建请求对象，然后使用httpJSON方法发送请求，并解析返回结果获取翻译文本。

使用这两个示例代码，您可以将任何文本从一种语言翻译为另一种语言。以下是一些使用例子：

# Python
translation = translate_text("Hello, how are you?", "en", "fr")
print(f"Translation: {translation}")

translation = translate_text("Wie geht es dir?", "de", "en")
print(f"Translation: {translation}")

# Haskell
translation <- translateText "Hello, how are you?" "en" "fr"
putStrLn $ "Translation: " ++ translation

translation <- translateText "Wie geht es dir?" "de" "en"
putStrLn $ "Translation: " ++ translation

上述代码分别将英语翻译为法语，德语翻译为英语，并打印出翻译结果。

以上是一个使用Python和Haskell构建的简单语言翻译工具的示例和使用例子。通过这个示例，您可以了解如何使用这两种语言来构建自己的翻译工具，并将其应用于各种翻译需求中。