Haskell non-OOP auto
1234567891011121314151617181920
-- Definice datového typu Auto
data Auto = Auto {
znacka :: String,
model :: String,
rokVyroby :: Int
} deriving (Show)
-- Funkce pro zobrazení informací o autě
zobrazInfo :: Auto -> IO ()
zobrazInfo auto = do
putStrLn $ "Znacka: " ++ znacka auto
putStrLn $ "Model: " ++ model auto
putStrLn $ "Rok vyroby: " ++ show (rokVyroby auto)
-- Vytvoření instance Auto a zobrazení informací
main :: IO ()
main = do
let mojeAuto = Auto "Toyota" "Corolla" 2020
zobrazInfo(mojeAuto)
Haskell
INFO