From dcc48e98e21a748657546f31b123115cc1d0bef6 Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Mon, 25 May 2015 11:27:24 -0700
Subject: [PATCH] Add ratio to scores

---
 modules/cjeopardy/cjeopardy_scores.pl | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/modules/cjeopardy/cjeopardy_scores.pl b/modules/cjeopardy/cjeopardy_scores.pl
index d53da0f8..83497137 100755
--- a/modules/cjeopardy/cjeopardy_scores.pl
+++ b/modules/cjeopardy/cjeopardy_scores.pl
@@ -316,6 +316,14 @@ if (lc $command eq 'score') {
   $score .= ", ";
 
   $score .= "wrong: $player_data->{wrong_answers}" . ($player_data->{lifetime_wrong_answers} > $player_data->{wrong_answers} ? " [$player_data->{lifetime_wrong_answers}]" : "") . ", ";
+  $score .= "ratio: ";
+  my $wrong = $player_data->{wrong_answers} ? $player_data->{wrong_answers} : 1;
+  $score .= sprintf("%.2f", $player_data->{correct_answers} / $wrong);
+  if ($player_data->{lifetime_correct_answers} > 0) {
+    $wrong = $player_data->{lifetime_wrong_answers} ? $player_data->{lifetime_wrong_answers} : 1;
+    $score .= sprintf(" [%.2f]", $player_data->{lifetime_correct_answers} / $wrong);
+  }
+  $score .= ", ";
   $score .= "current streak: $player_data->{wrong_streak}, ";
   $score .= "highest streak: $player_data->{highest_wrong_streak}" . ($player_data->{lifetime_highest_wrong_streak} > $player_data->{highest_wrong_streak} ? " [$player_data->{lifetime_highest_wrong_streak}]" : "") . ", ";