Implementação do problema amigos mais próximos em Haskell.