From 96957c8c77edfbd82a6f426645d817f7334dbfb9 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 25 Oct 2012 01:46:27 -0500
Subject: another solution

---
 KMP.pl | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 KMP.pl

diff --git a/KMP.pl b/KMP.pl
new file mode 100644
index 0000000..7c80d82
--- /dev/null
+++ b/KMP.pl
@@ -0,0 +1,25 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use 5.016;
+
+chomp(my $str = <>);
+
+my @failure = (0);
+
+my $idx = 0;
+for my $start (1..(length($str) - 1)) {
+    while (1) {
+        if (substr($str, $start, 1) eq substr($str, $idx, 1)) {
+            ++$idx;
+            last;
+        }
+        else {
+            last if $idx == 0;
+            $idx = $failure[$idx - 1];
+        }
+    }
+    push @failure, $idx;
+}
+
+say join(' ', @failure);
-- 
cgit v1.2.3-54-g00ecf