colors <- c("Red", "Green", "Ivory", "Yellow", "Blue")
nationalities <- c("Englishman", "Spaniard", "Ukrainian", "Japanese", "Norwegian") # nolint
pets <- c("Dog", "Snails", "Fox", "Horse", "Zebra")
drinks <- c("Coffee", "Tea", "Milk", "OrangeJuice", "Water")
hobbies <- c("Dancing", "Painting", "Reading", "Football", "Chess")
drinks_water <- function() {
solution <- solve()
solution$Nation[match("Water", solution$Drink)]
}