22 lines
795 B
Haskell
22 lines
795 B
Haskell
module Level (Level(..), bounds) where
|
|
|
|
import Menu (Menu(..), Promptable(..))
|
|
|
|
data Level = Easy | Normal | Hard deriving (Enum, Bounded)
|
|
|
|
instance Promptable Level where
|
|
menu = Menu {
|
|
title = "Choix du niveau de difficulte"
|
|
, question = "Entrez le numero du mode qui vous interesse : "
|
|
, invalidText = "Votre choix n'est pas valide, merci de taper 1, 2 ou 3 selon le niveau de difficulte que vous souhaitez activer."
|
|
}
|
|
|
|
showOption Easy = "Facile : le nombre a trouver est compris entre 1 et 100"
|
|
showOption Normal = "Moyen : le nombre a trouver est compris entre 1 et 1000"
|
|
showOption Hard = "Difficile : le nombre a trouver est compris entre 1 et 10000"
|
|
|
|
bounds :: Level -> (Int, Int)
|
|
bounds Easy = (1, 100)
|
|
bounds Normal = (1, 1000)
|
|
bounds Hard = (1, 10000)
|