11 lines
285 B
Haskell
11 lines
285 B
Haskell
-- In Haskell, patterns are used to define function overloads.
|
|
-- This is a very "static" case.
|
|
|
|
data Food = Pasta | Pizza | Chips
|
|
|
|
isEqualFood :: Food -> Food -> Bool
|
|
isEqualFood Pasta Pasta = True
|
|
isEqualFood Pizza Pizza = True
|
|
isEqualFood Chips Chips = True
|
|
isEqualFood _ _ = False
|