Hi folks,

I'm using the state monad (Control.Monad.State.Strict) to keep track of the state of a monopoly game (Project Euler problem #84). I'm really close to get something that works, but I just have some code with side effects only that does not execute and I struggle force it to execute. I used hpc to discover which part of the code was never run and found lines 93 to 95. In those lines I'm trying to update a visits Map that holds the number of times I've been on a particular cell of the board. What I don't understand is that the code in lines 66 to 68 is almost identical and this one gets executed. The visit Map is used at the very end to retrieve results.

   57 execAction :: State Monopoly ()
   58 execAction = do
   59     m <- get
   60     let b = board m
   61     let s = CL.value b
   62     case s of
   63         (CC _) -> execCommunityChest
   64         (CH _) -> execChance
   65         G2J    -> execMove gotoJail
   66         _      -> do
   67             let v = insertWith (+) s 1 (visit m)
   68             put m {visit = v}
...

   80     let c = cc m
   81     c' <- execCard c
   82     put m {cc = c'}
   83 
   84 execCard :: CardsDeck -> State Monopoly CardsDeck
   85 execCard cd = do
   86     let cd' = CL.next cd
   87     case CL.value cd of
   88         Just mv -> do
   89             execMove mv
   90             return cd'
   91         Nothing -> do
   92             m <- get
   93             let s = CL.value $ board m
   94             let v = insertWith (+) s 1 (visit m)
   95             put m {visit = v}
   96             return cd'

I tried to play with some $! to force execution but it never goes deep enough and I don't really know where to place these. I did not copy the whole solution as requested on the Project Euler site.

Any help on this would be greatly appreciated,

Thanks,

Olivier.