Let me give round one a try... There must be a better way of doing this...
use strict;
use warnings;
use Algorithm::Loops qw/ NestedLoops /;
use Data::Dumper;
my @patterns = (
[ 0, 1, 2 ],
[ 0, 3, 6 ],
[ 0, 4, 8 ],
[ 1, 4, 7 ],
[ 2, 5, 8 ],
[ 2, 4, 6 ],
[ 3, 4, 5 ],
[ 6, 7, 8 ],
);
while (<DATA>) {
chomp(my @input = split /\s+/, $_);
my @combinations = ();
NestedLoops([ [@input],
( sub {
my %used;
@used{@_}= (1) x @_;
return [ grep !$used{$_}, @input ];
} ) x (2),
],
sub {
push @combinations, [ @_ ];
return 1;
});
my @output = map { Validate(\@input, $_) ? $_ : () } @combinations
+;
print "@input:\n", @output ? Dumper(\@output) : "Not possible", "\
+n\n";
}
sub Validate
{
my ($input, $c) = @_;
my %p = map { $_ => 1 } @$c;
my @diff = map { $p{$_} ? () : $_ } @$input;
foreach (@diff) {
return 0 if !Canfit($c, $_);
}
return 1
}
sub Canfit
{
my ($c, $e) = @_;
my @l = map { split //, $_ } @$c;
foreach (@patterns) {
my $text = join '', @l[ @$_ ];
return 1 if $text eq $e || $text eq reverse $e;
}
return 0;
}
__DATA__
tan are nan tom men ora
tan are soo and hen oar
tom soo san sop hen ora
Output:
tan are nan tom men ora:
$VAR1 = [
[
'tan',
'ora',
'men'
],
[
'tom',
'are',
'nan'
]
];
tan are soo and hen oar:
Not possible
tom soo san sop hen ora:
Not possible
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.