Échec de correspondance de modèle dans la liste dans Haskell

Question

J'ai un problème avec la correspondance de modèle. Lorsque je donne une entrée à (x: y: ys) la liste contenant 3 éléments, les câlins se plaignent qu'il y a: échec de correspondance de modèle. Je suppose que le problème est ici

takeNearestOnes agent (y:ys) (x:nearestOnes) 

parce qu'il ne correspond pas à trois éléments avec la liste contenant deux éléments

Ce code complet est:

takeNearestOnes agent (x:y:ys) nearestOnes 
      | first == second = takeNearestOnes agent (y:ys) (x:nearestOnes) 
      | otherwise = (x:nearestOnes) 
     where first=(manhattanDistance x (agentCoord agent)) 
       second=(manhattanDistance y (agentCoord agent) 

Comment puis-je surmonter cela? Merci d'avance

Answer 1

Étant donné que votre fonction est récursive et que vous réduisez la liste, vous pouvez éventuellement aller travailler jusqu'à une liste de 1 élément, auquel cas votre correspondance échouera. Vous pouvez résoudre ce problème en ajoutant un autre cas de votre fonction qui bon vous traite jugent approprié

Quelque chose comme

takeNearestOnes agent [x] nearestOnes = doSomething 
takeNearestOnes agent [] nearestOnes = doSomethingElse 

Answer 2

Quel devrait être le résultat de takeNearestOnes agent [x] nearestOnes? Quel devrait être le résultat de takeNearestOnes agent [] nearestOnes?

Écrire des équations supplémentaires pour ces cas.