在Haskell中实现一个基本的计算器

Haskell是一种功能强大的静态类型编程语言，由于其函数式编程的特性，它非常适合实现计算器。在这篇文章中，我们将介绍如何使用Haskell编写一个基本的计算器，并给出一些使用例子。

首先，我们需要定义一些基本的运算符。在这个计算器中，我们将支持加法、减法、乘法和除法四则运算。我们可以使用以下代码定义这些运算符：

data Operator = Plus | Minus | Multiply | Divide

接下来，我们定义一个函数来执行这些运算。这个函数接受两个参数，一个运算符和两个操作数，并根据运算符执行相应的操作：

performOperation :: Operator -> Float -> Float -> Float
performOperation Plus x y = x + y
performOperation Minus x y = x - y
performOperation Multiply x y = x * y
performOperation Divide x y = x / y

现在，我们可以定义一个计算器函数来解析用户输入并执行相应的操作。我们可以使用递归实现一个简单的计算器函数。以下是我们的计算器函数的实现：

calculator :: Float -> IO ()
calculator result = do
  putStr "Enter an operator (+, -, *, /) or 'q' to quit: "
  operator <- getLine
  case operator of
    "+" -> performCalculation Plus
    "-" -> performCalculation Minus
    "*" -> performCalculation Multiply
    "/" -> performCalculation Divide
    "q" -> putStrLn "Goodbye!"
    _ -> do
      putStrLn "Invalid operator!"
      calculator result
  where
    performCalculation op = do
      putStr "Enter a number: "
      value <- getLine
      let num = read value :: Float
          newResult = performOperation op result num
      putStrLn $ "Result: " ++ show newResult
      calculator newResult

以上代码首先提示用户输入运算符，然后根据用户输入选择相应的操作。当用户输入'q'时，程序终止。当用户输入无效的运算符时，程序会提醒用户并重新开始。如果用户输入了有效的运算符，程序会提示用户输入一个数字，并将这个数字与之前的结果一起使用相应的运算符计算新的结果，并将结果输出给用户。

我们可以在main函数中调用计算器函数：

main :: IO ()
main = calculator 0.0

在我们的计算器中，初始值为0.0。用户可以通过多次使用不同的运算符和数字来执行一系列计算。

下面是一些使用例子：

Enter an operator (+, -, *, /) or 'q' to quit: +
Enter a number: 5
Result: 5.0
Enter an operator (+, -, *, /) or 'q' to quit: *
Enter a number: 2
Result: 10.0
Enter an operator (+, -, *, /) or 'q' to quit: -
Enter a number: 3
Result: 7.0
Enter an operator (+, -, *, /) or 'q' to quit: q
Goodbye!

这是一个非常基本的计算器示例，只支持四则运算和浮点数。你可以根据需要进行修改和扩展，添加更多功能和运算。希望这篇文章能对你有所帮助！