EXPERT HASKELL PROGRAMMER

<chrisdone> can one declare multiple type synonyms for the same type?
<chrisdone> like `type FirstName,SecondName = String'

Hello Christopher.

>>16
There are a number of ways to model genitalia in Haskell. Here's one. This one is flexible as it allows the later addition of non-human genitalia; however, it doesn't allow for cross-species fucking.


module Main where

data Genital = Penis | Vagoo

class Genitalia a where
  fuck :: a -> a -> IO ()

instance Genitalia Genital where
  fuck Penis Penis = putStrLn "GAY."
  fuck Vagoo Vagoo = putStrLn "AWESOME!"
  fuck Penis Vagoo = putStrLn "BORING."
  fuck Vagoo Penis = putStrLn "KINKY!"