From 2039610fae8dc4c0e825dc55a737f8459e075a3e Mon Sep 17 00:00:00 2001
From: Ryan Voots <simcop2387@simcop2387.info>
Date: Tue, 5 Oct 2010 00:22:30 -0400
Subject: [PATCH] gorack did it

---
 plugins/8ball.pm | 27 ++++++++++++++++++++++++++-
 1 file changed, 26 insertions(+), 1 deletion(-)

diff --git a/plugins/8ball.pm b/plugins/8ball.pm
index 4b02c50..7b6de6c 100644
--- a/plugins/8ball.pm
+++ b/plugins/8ball.pm
@@ -1,8 +1,31 @@
+use List::Util qw(min);
+
+	
+	my $findcommon = sub {
+		my @input = map {lc $_} @_;
+		my $min = min(map {length $_} @input);
+		my $common = "";
+		
+		for my $i (0..$min-1)
+		{
+			my $count = 1;
+			for my $j (1..$#input)
+			{
+				$count++ if (substr($input[0], $i, 1) eq substr($input[$j], $i, 1))
+			}
+			
+			$common .= substr($input[0], $i, 1) if ($count == @input) # did it match all inputs?
+		}
+		
+		return $common;
+	};
+
 sub {
 	my( $said ) = @_;
 
     my $ors =()= $said->{body}=~m/\bor\b/g;
     my $commas =()= $said->{body}=~m/,(?=.*\bor\b)/g;
+    my $common = "";
 
     my @a;
 
@@ -18,6 +41,8 @@ sub {
 		}
 		
 		s/^\s*//, s/\s*\?\s*$// for @a; #trim them up
+		
+		$common = $findcommon->(@a);
 	}
 	else
 	{
@@ -43,7 +68,7 @@ sub {
            "As I see it, yes");
 	}
 
-     print $a[rand@a]."."
+     print $a[rand@a]." $common."
 }
 
 __DATA__