-- Vorgabe - nicht ändern!
module Blatt01 where

data Color = Red | Magenta | Blue | Cyan | Green | Yellow
-- Ende der Vorgabe.

-- Aufgabe 1.1 a)
data Genre = FPS | MMO | MOBA -- Durch Lösung ersetzen.

-- Aufgabe 1.2 b)
m :: Maybe Int
m = Just 3 -- Durch Lösung ersetzen.

-- Aufgabe 1.3 c)
eith :: Either () Int
eith = Right 23 -- Durch Lösung ersetzen.

-- Aufgabe 1.4 d)
tup :: (Color,Bool)
tup = (Yellow,True) -- Durch Lösung ersetzen.

-- Aufgabe 1.2 a)
data Game = Game {title::String,genre::Genre,price::Float} -- Durch Lösung ersetzen.

data User = User {name::String,password::String,balance::Double,game::Game} -- Durch Lösung ersetzen.

-- Aufgabe 1.2 b)
user :: User
someGame :: Game
someGame = Game "CS:GO" FPS 50.0
user = User "Daniel" "insecure" 42 someGame -- Durch Lösung ersetzen.

-- Aufgabe 1.2 c)
balancePlus50 :: User
balancePlus50 = User "Daniel" "insecure" 92 someGame -- Durch Lösung ersetzen.


-- Aufgabe 1.3 a)
c = Red -- Durch Lösung ersetzen.
i = 4 -- Durch Lösung ersetzen.

-- Augabe 1.3 b)
x = tup -- Durch Lösung ersetzen.
y = m -- Durch Lösung ersetzen.