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

feat: implement nextGuess with a basic strategy: guess every possible chord

Browse source
This commit is contained in:
wi11-holdsworth 2025-09-25 11:49:25 +10:00
parent 4618e32d77
commit e26b60a9ed
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Proj2.hs
View file

@ -110,4 +110,4 @@ allNotes = [minBound .. maxBound]
-- implement me
nextGuess :: ([Pitch], GameState) -> (Int, Int, Int) -> ([Pitch], GameState)
nextGuess _ _ = ([], [[]])
nextGuess (prevGuess, chord : chords) _ = (chord, chords)