20 lines
439 B
Haskell
20 lines
439 B
Haskell
|
module Main where
|
||
|
|
|
||
|
|
import System.Random
|
||
|
|
|
||
|
|
data Fastfood = Friet
|
||
|
|
| Kapsalon
|
||
|
|
| Pizza
|
||
|
|
| Lasagne
|
||
|
|
deriving (Show, Eq, Ord, Enum, Read, Bounded)
|
||
|
|
|
||
|
|
instance Random Fastfood where
|
||
|
|
randomR (a, b) g =
|
||
|
|
case randomR (fromEnum a, fromEnum b) g of
|
||
|
|
(x, g') -> (toEnum x, g')
|
||
|
|
random = randomR (minBound, maxBound)
|
||
|
|
|
||
|
|
|
||
|
|
main :: IO ()
|
||
|
|
main = print =<< (randomIO :: IO Fastfood)
|