From 04cde43001eda5c6d9cfd336e611a833b3611232 Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Wed, 17 Dec 2008 23:45:23 -0500
Subject: add spook solver (thanks sartak)

---
 bin/solve-spook.pl | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 bin/solve-spook.pl

diff --git a/bin/solve-spook.pl b/bin/solve-spook.pl
new file mode 100644
index 0000000..f0ca2ae
--- /dev/null
+++ b/bin/solve-spook.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use Games::Word::Wordlist;
+
+my $start = $ARGV[0] or die "Usage: $0 <subword>\n";
+my $wl = Games::Word::Wordlist->new('/usr/share/dict/words');
+my $re = join '.*', sort split(//, $ARGV[0]);
+$wl->each_word(sub {
+    my $word = shift;
+    print "$word\n" if join('', sort split(//, $word)) =~ /$re/i;
+});
-- 
cgit v1.2.3-54-g00ecf