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

feat: implement initialGuess

Browse source
This commit is contained in:
wi11-holdsworth 2025-09-25 11:15:42 +10:00
parent 7b98957f63
commit d8dbc1c86c
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Proj2.hs
View file

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