#!perl -w
use strict;
sub choose {
my ($str, $n) = @_;
my @result;
choose1(\@result, "", $str, $n, 0);
return @result;
}
sub choose1 {
my ($parray, $this, $str, $n, $x) = @_;
if ($n == 0) {
push @{$parray}, $this;
return;
}
return if $x + $n > length($str);
choose1($parray, $this . substr($str, $x, 1), $str, $n - 1, $x+1);
choose1($parray, $this, $str, $n, $x+1);
}
my %edges;
my %nodes;
my %collinear;
for (qw(ab acfi adgj ae bcde bfhj bi ej eghi ij)) {
$nodes{$_} = 1 for choose($_, 1);
$edges{$_} = 1 for choose($_, 2);
$collinear{$_} = 1 for choose($_, 3);
}
my $allnodes = join "", sort keys %nodes;
for my $triple (grep {!$collinear{$_}} choose($allnodes, 3)) {
print "$triple\n" if 3 == grep { $edges{$_} } choose($triple, 2);
}
-
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.