-- IB015 2019 - Kostra řešení čtvrté domácí úlohy
--   * V kostře nahraďte ‚undefined‘ vlastní implementací.
--   * Definicím funkcí můžete přidávat formální parametry.
--   * DŮLEŽITÉ: Neodstraňujte žádné zadané funkce.
--   * DŮLEŽITÉ: Ke všem funkcím uvádějte typovou signaturu.
--   * Řešení si zkuste spustit na Aise s GHC 8.6.
--   * Vyřešenou úlohu nahrajte do odevzdávárny své seminární skupiny.

-- Před tento řádek nic nepřidávejte
import Data.List

type ShowID = Int
type ShowName = String
type Rating = Int
type EpisodeNumber = Int
type Year = Int
type EpisodeName = String

type ShowInfo = (ShowID, ShowName, Rating)
type EpisodeInfo = (ShowID, EpisodeNumber, Year, EpisodeName)

type Shows = [ShowInfo]
type Episodes = [EpisodeInfo]


findShowId :: Shows -> ShowName -> ShowID
findShowId = undefined

getEpisodes :: Episodes -> ShowID -> Episodes
getEpisodes = undefined

countEpisodes :: Episodes -> ShowID -> Int
countEpisodes = undefined

isShowContiguous :: Episodes -> ShowID -> Bool
isShowContiguous = undefined

publicationRange :: Episodes -> ShowID -> (Year, Year)
publicationRange = undefined

bestRating :: Shows -> ShowName
bestRating = undefined

worstRating :: Shows -> ShowName
worstRating = undefined

sortByYearOfPublication :: Episodes -> Episodes
sortByYearOfPublication = undefined

showEpisodes :: Shows -> Episodes -> [(ShowName, [EpisodeName])]
showEpisodes = undefined

join :: Shows -> Episodes -> [(ShowName, EpisodeName)]
join = undefined


-- 8< -----------------------------------------------------------------------
-- Testovací data (doporučujeme přidat vlastní)

shs :: Shows
shs = [(  4, "Ajtaci",         88)
      ,( 45, "Mentalista",     70)
      ,( 48, "Miranda",        84)
      ,( 51, "Most!",          84)
      ,(129, "Zdivocela zeme", 71)
      ]

eps :: Episodes
eps = [( 4,   1, 2006, "Vcerejsi odpad")
      ,(45,  56, 2010, "Vesely rudy skritek")
      ,( 4,   4, 2006, "Cervene dvere")
      ,(45, 124, 2013, "Rudy John")
      ,(48,   8, 2010, "Smutecni rec")
      ,(51,   4, 2019, "")
      ,( 4,   6, 2006, "Prijizdi teta Irma")
      ,( 4,   2, 2006, "Kalamity Jen")
      ,(51,   3, 2019, "")
      ,(45,   2, 2008, "Rude vlasy a stribrna paska")
      ,(48,   4, 2009, "Dovolena")
      ,(45,  77, 2011, "Rude probleskujici svetlo")
      ,(51,   5, 2019, "")
      ]