Slide 71
Slide 71 text
1 data TicTacToeState =
2 InPlay | Done
3
4 toState : Board -> TicTacToeState
5 toState b =
6 case (winner b, complete b) of
7 (Just p, _) => Done
8 (Nothing, True) => Done
9 (Nothing, False) => InPlay
10
11 data TicTacToe : TicTacToeState -> Type where
12 T : (Game b) -> TicTacToe (toState b)
!
!
!
!
!
!
!
!