Home Explore Help
Sign In
CNI
/
HaskellCourse
3
0
Fork 0
Files Issues 0 Pull Requests 0 Wiki
Browse Source

Implement toggleFlag

DricomDragon 5 years ago
parent
c068953d94
commit
0459a197fa
1 changed files with 4 additions and 0 deletions
Split View Show Diff Stats
  1. 4 0
      tp/mine-sweeper/main.hs

+ 4 - 0
tp/mine-sweeper/main.hs
View File 

@@ -126,6 +126,10 @@ won g nbMines =
 
     let nbUnco = sum (map sum uncoBinMatrix) in
 
     nbUnco == nbTotal - nbMines
 
 
+toggleFlag::Cell -> Cell
 
+toggleFlag (Covered n b flag) = Covered n b !flag
 
+toggleFlag c = c
 
+
 
 
 -- Testing data