Я пытаюсь заставить список кортежей хранить некоторую информацию определенным образом.Например, scotland
принадлежит uk
, england
принадлежит uk
и т. Д. Затем возьмите две строки в качестве аргументов (String -> String -> Bool
), чтобы создать что-то вроде:
Main> owns "china" "beijing"
True
Main> owns "uk" "beijing"
False
Вот мой код:
lst = [("uk","scotland"),("uk","england"),("uk","wales"),("china","beijing"),("china","hongkong"),("china","shanghai")]
owns :: String -> String -> Bool
owns a b = [n|(a,b) <- lst, (n == a)] && [m|(a,b) <- lst, (m==b]
Спасибо за помощь.