From 3624c712d72d246f21d4e710cec7c11e052e0326 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Tue, 9 Dec 2025 16:32:32 +0100 Subject: Add the haskell book --- Haskell-book/11/Vehicle.hs | 40 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 40 insertions(+) create mode 100644 Haskell-book/11/Vehicle.hs (limited to 'Haskell-book/11/Vehicle.hs') diff --git a/Haskell-book/11/Vehicle.hs b/Haskell-book/11/Vehicle.hs new file mode 100644 index 0000000..b4dd705 --- /dev/null +++ b/Haskell-book/11/Vehicle.hs @@ -0,0 +1,40 @@ +module Vehicle where + +data Price = Price Integer deriving (Eq, Show) + +data Size = Size Integer deriving (Eq, Show) + +data Manufacturer = Mini + | Mazda + | Tata + deriving (Eq, Show) + +data Airline = PapuAir + | CatapultsR'Us + | TakeYourChancesUnited + deriving (Eq, Show) + +data Vehicle = Car Manufacturer Price + | Plane Airline Size + deriving (Eq, Show) + +myCar = Car Mini (Price 14000) +urCar = Car Mazda (Price 20000) +clownCar = Car Tata (Price 7000) +doge = Plane PapuAir (Size 1234) + +isCar :: Vehicle -> Bool +isCar (Car _ _) = True +isCar _ = False + +isPlane :: Vehicle -> Bool +isPlane (Plane _ _) = True +isPlane _ = False + +areCars :: [Vehicle] -> [Bool] +areCars = map isCar + +getManu :: Vehicle -> Manufacturer +getManu (Car m _) = m + +data Example = MakeExample Int deriving Show -- cgit v1.2.3