{- (1.0) - Faca uma funcao que calcule o mmc.
           mmc 6 9 = 18, mmc 6 3 = 6
-}
--mmc :: Int -> Int -> Int

{-(2.0) - O tipo Database, abaixo, 
          e' um tipo que representa um banco de dados 
          de livros emprestados de uma biblioteca.
          Defina as funcoes abaixo e teste usando dbsample.
-}

type Person = String
type Book = String
type Database = [(Person,Book)]

dbsample = [("Alice","Twister"), ("Anna","Jurassic Park"),
            ("Roy","Mission Impossible"), ("Alice","Congo"),
            ("Alice","Mission Impossible")]

-- books :: Database -> Person -> [Book]
-- borrowers :: Database -> Book -> [Person]
-- borrowed :: Database -> Book -> Bool
-- numborrowed :: Database -> Person -> Int

{- (2.0) - mais duas funcoes para o banco de dados: -}
-- makeLoan :: Database -> Person -> Book -> Database
-- returnLoan :: Database -> Person -> Book -> Database

{- (2.0) - faca uma funcao que converta um numero em numero romano 
           Ex: romanDigit 7 = "VII"
               romanDigit 9 = "IX"
-}
-- romanDigit :: Int -> String