From d8dbc1c86c1b8e73e012ae413a1a7231c52226c1 Mon Sep 17 00:00:00 2001
From: wi11-holdsworth <83637728+wi11-holdsworth@users.noreply.github.com>
Date: Thu, 25 Sep 2025 11:15:42 +1000
Subject: [PATCH] feat: implement initialGuess

---
 Proj2.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/Proj2.hs b/Proj2.hs
index a1e6774..9eb6454 100644
--- a/Proj2.hs
+++ b/Proj2.hs
@@ -78,9 +78,12 @@ feedback target guess = (length correctPitches, correctNotes, correctOctaves)
     correctNotes = length $ S.intersection targetNoteSet guessNoteSet
     correctOctaves = length $ S.intersection targetOctaveSet guessOctaveSet
 
--- implement me
 initialGuess :: ([Pitch], GameState)
-initialGuess = ([], [[]])
+initialGuess = ([a1, a2, a3], [[]])
+  where
+    a1 = Pitch A One
+    a2 = Pitch A Two
+    a3 = Pitch A Three
 
 -- implement me
 nextGuess :: ([Pitch], GameState) -> (Int, Int, Int) -> ([Pitch], GameState)