From a529ce696348a36e2251fdf4e040a7562c483154 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Wed, 24 Oct 2012 23:58:25 -0500
Subject: another solution

---
 LEXF.pl | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 LEXF.pl

diff --git a/LEXF.pl b/LEXF.pl
new file mode 100644
index 0000000..2c522da
--- /dev/null
+++ b/LEXF.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use 5.016;
+
+my @string = split ' ', scalar(<>);
+chomp(my $length = <>);
+
+my $base = @string;
+
+for my $num (0..$base ** $length - 1) {
+    my @digits;
+    my $remainder = $num;
+    for my $digit (1..$length) {
+        my $exponent = $length - $digit;
+        push @digits, int($remainder / $base ** $exponent);
+        $remainder -= $digits[-1] * $base ** $exponent;
+    }
+    say join('', map { $string[$_] } @digits);
+}
-- 
cgit v1.2.3