From 3fdf270456da15447c5a57851610888e2f510574 Mon Sep 17 00:00:00 2001 From: Alex AUVOLAT Date: Mon, 10 Nov 2014 20:00:25 +0100 Subject: Add commands A and Z --- README.md | 2 ++ judge/main.ml | 2 ++ 2 files changed, 4 insertions(+) diff --git a/README.md b/README.md index 5e636b5..027941c 100644 --- a/README.md +++ b/README.md @@ -108,6 +108,8 @@ Les commandes sont les suivantes : - p : partie précédente (prev) - f : coup suivant (forward) - b : coup précédent (back) + - a : début de partie + - z : fin de partie Le morpion récursif diff --git a/judge/main.ml b/judge/main.ml index 18cba43..47d29ba 100644 --- a/judge/main.ml +++ b/judge/main.ml @@ -75,6 +75,8 @@ end = struct curr_view := NavGame (g, n+1) | NavGame (g, n), 'f' when n = List.length (C.hist g) - 1 -> curr_view := NavGame (g, -1) + | NavGame(g, _), 'a' -> curr_view := NavGame(g, 0) + | NavGame(g, _), 'z' -> curr_view := NavGame(g, -1) | ViewLastGame, '\t' | NavGame _, '\t' -> curr_view := MatchList false | Question(_, y, n), 'y' -> y() | Question(_, y, n), 'n' -> curr_view := n -- cgit v1.2.3