diff options
| author | Alex AUVOLAT <alex.auvolat@ens.fr> | 2014-11-10 19:39:45 +0100 |
|---|---|---|
| committer | Alex AUVOLAT <alex.auvolat@ens.fr> | 2014-11-10 19:39:45 +0100 |
| commit | 9aa8b3a702c65f47033651e770ab3755a0210c16 (patch) | |
| tree | b83d41de074a7806b057e32aeedd43e60fee1709 | |
| parent | e650922ad088c5b003cd5d1e1ffa255e82b879b2 (diff) | |
| parent | e40508aa7f25247443b2ff8ebb6637b36608b8dc (diff) | |
| download | CompetIA-9aa8b3a702c65f47033651e770ab3755a0210c16.tar.gz CompetIA-9aa8b3a702c65f47033651e770ab3755a0210c16.zip | |
Merge branches 'master' and 'master' of adnab.me:~/git/CompetIA into ocaml-3.12
| -rw-r--r-- | judge/main.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/judge/main.ml b/judge/main.ml index 3e14ff2..85c09b6 100644 --- a/judge/main.ml +++ b/judge/main.ml @@ -110,8 +110,11 @@ end = struct (fun (_, sc) (_, sc') -> sc' - sc) (C.scores()) in + let p_sc = ref (-199028109) in let show_sc i (n, s) = - text2 (i+4) black (string_of_int (i+1)^". "); + if s <> !p_sc then + text2 (i+4) black (string_of_int (i+1)^". "); + p_sc := s; text3 (i+4) black n; text4 (i+4) black (string_of_int s) in |