Expensive Dinner solutions

Expensive Dinner was solved using Haskell by 6 contestants. Solution sizes: average 1772 bytes (shortest: 699; longest: 3544).