will-holdsworth/comp30002-project-2
1
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

refactor: mark guess functions for implementation

Browse source
This commit is contained in:
wi11-holdsworth 2025-09-24 14:52:23 +10:00
parent 3654485f23
commit 6f600ff149
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Proj2.hs
View file

@ -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 _ _ = ([], [[]])