[Resolvido]Problemas ao implementar função no Haskell

Programação
#1

Olá,

Eu estou tentando resolver alguns problemas básicos de haskell, mas estou com uma dificuldade.

Eu implementei o seguinte código:

type Nome = String
type Preco = Int
type CodigoBarra = Int
type BancoDeDados = [(CodigoBarra, Nome, Preco)]

bd:: BancoDeDados
bd = [(1001,"Refrigerante",450),
         (1002,"Leite",320),
         (1003,"Biscoito",200),
         (1004,"Suco",989),
         (1005,"Arroz",345),
         (1006,"Feijao",780)]

buscarBDaux:: CodigoBarra->BancoDeDados->(Nome,Preco)
buscarBDaux cd ((a,b,c):d) |a == cd = (b,c) 
                                            |otherwise = buscarBDaux cd d

Agora eu preciso implementar a função buscarDB,que funcionaria assim:

Entrada: buscarDB 1006
Saída: (“Feijao”, 780)

Essa função usaria a buscarBDaux, mas eu não estou conseguindo chamar buscarBDaux sem ter passado o banco de dados no buscarDB.

Poderiam me ajudar?

Obrigado!

#2

Como é que tá a funçao buscarDB ?
Se você tiver colocar o bd hard-coded nela deveria funcionar.

buscarBD:: CodigoBarra->(Nome,Preco)
buscarBD codigo = 
    buscarBDaux codigo bd
1 curtida