mirror of
https://gitlab.com/mfocko/CodeWars.git
synced 2024-09-08 01:26:57 +02:00
10 lines
390 B
Haskell
10 lines
390 B
Haskell
module Kata where
|
|
|
|
data Operation = Add | Divide | Multiply | Subtract deriving (Eq, Show, Enum, Bounded)
|
|
|
|
arithmetic :: Fractional a => a -> a -> Operation -> a
|
|
arithmetic a b operator = case operator of
|
|
Add -> (a + b)
|
|
Divide -> (a / b)
|
|
Multiply -> (a * b)
|
|
Subtract -> (a - b)
|