blob: 2c522da3a128855ce157f628f591d976664deadd (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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);
}
|