Skip to content

Instantly share code, notes, and snippets.

@eiel

eiel/great_it_engineer_2015.hs

Created December 27, 2015 01:25
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save eiel/e8ffc2ac5b2ddd3b9e69 to your computer and use it in GitHub Desktop.
Save eiel/e8ffc2ac5b2ddd3b9e69 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
great_it_engineer_2015.hs
import System.Random
data GreatItEngineer = GIE_7richi | GIE_akira345 | GIE_jou4 | GIE_14suke | GIE_mrtc0 deriving (Enum, Show)
main = newStdGen >>= print . engineer . toEnum . flip mod 5 . fst . random
where
engineer :: GreatItEngineer -> GreatItEngineer
engineer = id
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment