From 369eb89ea18250bad1b3ef73280b7683ee1c6f93 Mon Sep 17 00:00:00 2001 From: seth Date: Mon, 3 Jul 2023 23:54:18 -0400 Subject: initial commit --- src/calculator.hs | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 src/calculator.hs (limited to 'src/calculator.hs') diff --git a/src/calculator.hs b/src/calculator.hs new file mode 100644 index 0000000..1da13af --- /dev/null +++ b/src/calculator.hs @@ -0,0 +1,22 @@ +calculate :: String -> Float -> Float -> Float +calculate operator number1 number2 = case operator of + "+" -> number1 + number2 + "-" -> number1 - number2 + "/" -> number1 / number2 + "*" -> number1 * number2 + _ -> error "invalid operator!" + +main :: IO() +main = do + putStr "enter a number: " + input<-getLine + let number1 = (read input :: Float) + + putStr "enter an operator: " + operator<-getLine + + putStr "enter another number: " + input<-getLine + let number2 = (read input :: Float) + + print (calculate operator number1 number2) -- cgit v1.2.3