From 6f600ff1493c9be02bc5219e30aa20b60ffa1afd Mon Sep 17 00:00:00 2001 From: wi11-holdsworth <83637728+wi11-holdsworth@users.noreply.github.com> Date: Wed, 24 Sep 2025 14:52:23 +1000 Subject: [PATCH] refactor: mark guess functions for implementation --- Proj2.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/Proj2.hs b/Proj2.hs index 2292d26..cac7a3a 100644 --- a/Proj2.hs +++ b/Proj2.hs @@ -27,8 +27,10 @@ toPitch _ = Just (Pitch 'A' 1) feedback :: [Pitch] -> [Pitch] -> (Int, Int, Int) feedback _ _ = (0, 0, 0) +-- implement me initialGuess :: ([Pitch], GameState) -initialGuess = ([Pitch 'A' 1], ()) +initialGuess = ([], [[]]) +-- implement me nextGuess :: ([Pitch], GameState) -> (Int, Int, Int) -> ([Pitch], GameState) -nextGuess _ _ = ([Pitch 'A' 1], ()) +nextGuess _ _ = ([], [[]])