From e40508aa7f25247443b2ff8ebb6637b36608b8dc Mon Sep 17 00:00:00 2001
From: Alex AUVOLAT <alex.auvolat@ens.fr>
Date: Mon, 10 Nov 2014 19:38:42 +0100
Subject: Ex aequo in score view.

---
 judge/main.ml | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'judge')

diff --git a/judge/main.ml b/judge/main.ml
index 8c74be6..18cba43 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
-- 
cgit v1.2.3