小编Kan*_*tin的帖子

type Song = (String, String, Int) --(title, artist, sales)

database :: [Song]
database = [("Amon Amarth","Ravens flight", 1), 
  ("Amon Amarth","Shield wall", 11),
  ("Amon Amarth","The way of vikings", 105),
  ("Elijah Nang","Journey to the west", 1000),
  ("Elijah Nang","Tea house", 7),
  ("Pink Floyd","Wish you were here", 123),
  ("Amon Amarth","Raise your horns", 9001),
  ("NLE Choppa","Walk 'em down'", 69420),
  ("Elijah Nang","Kumite", 1337),
  ("NLE Choppa","Shotta flow 6", 511),
  ("Pink Floyd","Comfortably numb", 9),
  ("Pink Floyd","Shotta flow 6", 711), -- changed to match the name of an nle …