From f14145ab982aee807b65ecbc1a6ea82b6657bb0e Mon Sep 17 00:00:00 2001
From: doy <doy@tozt.net>
Date: Mon, 27 Apr 2009 00:28:32 -0500
Subject: give the time it took to solve a 24 problem when a correct answer is
 given

---
 lib/Bot/Games/Game/24.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lib/Bot/Games/Game/24.pm b/lib/Bot/Games/Game/24.pm
index b5f50ad..ed5263d 100644
--- a/lib/Bot/Games/Game/24.pm
+++ b/lib/Bot/Games/Game/24.pm
@@ -4,6 +4,7 @@ extends 'Bot::Games::Game';
 
 use List::Util qw/shuffle/;
 use Math::Expression::Evaluator;
+use Time::Duration;
 
 has '+help' => (
     default => '24 help',
@@ -36,7 +37,9 @@ augment turn => sub {
     my $eval = $self->evaluate($expr);
     if (defined($eval) && $eval == 24) {
         $self->is_over(1);
-        return "$player wins!";
+        return "$player wins! ("
+             . concise(duration_exact(time - $self->start_time->epoch))
+             . ")";
     }
     else {
         return "$expr = " . (defined($eval) ? $eval : 'undef');
-- 
cgit v1.2.3-54-g00ecf