From 79b1852f03e9c00baa50ae322ed611291ac0dc53 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 2 Nov 2009 18:48:55 -0600
Subject: ignore whitespace in 24 solutions

---
 lib/Bot/Games/Game/24.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/Bot/Games/Game/24.pm b/lib/Bot/Games/Game/24.pm
index fcfe24b..e461a96 100644
--- a/lib/Bot/Games/Game/24.pm
+++ b/lib/Bot/Games/Game/24.pm
@@ -32,6 +32,7 @@ sub turn {
     my ($player, $expr) = @_;
     $self->add_player($player) unless $self->has_player($player);
 
+    $expr =~ s/\s//g;
     my $numbers = join ',', sort grep { $_ } split(/[-\+\*\/\(\)]+/, $expr);
     my $solution = join ',', sort split(' ', $self->state);
     return "invalid numbers" unless $numbers eq $solution;
-- 
cgit v1.2.3-54-g00ecf