Name: Anonymous 2013-08-25 14:06
// muh ad-hoc polymorphism in C++
struct Person { string name; }
struct Animal { string name; }
string name(const Person& p) { return p.name; }
string name(const Animal& a) { return a.name; }
// muh ad-hoc polymorphism in Haskell (spergy)
data Person = Person { personName :: String }
data Animal = Animal { animalName :: String }
class HasName a where
name :: a -> String
instance HasName Person where
name = personName
instance HasName Animal where
name = petName