From e26b60a9ed58f72ae65bb3ba00de5b691acc36e2 Mon Sep 17 00:00:00 2001
From: wi11-holdsworth <83637728+wi11-holdsworth@users.noreply.github.com>
Date: Thu, 25 Sep 2025 11:49:25 +1000
Subject: [PATCH] feat: implement nextGuess with a basic strategy: guess every
 possible chord

---
 Proj2.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Proj2.hs b/Proj2.hs
index 57d000c..deb4846 100644
--- a/Proj2.hs
+++ b/Proj2.hs
@@ -110,4 +110,4 @@ allNotes = [minBound .. maxBound]
 
 -- implement me
 nextGuess :: ([Pitch], GameState) -> (Int, Int, Int) -> ([Pitch], GameState)
-nextGuess _ _ = ([], [[]])
+nextGuess (prevGuess, chord : chords) _ = (chord, chords)