Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re^2: How many triangles does your perl script "see"?

by fizbin (Chaplain)
on Oct 27, 2005 at 19:39 UTC ( #503450=note: print w/replies, xml ) Need Help??


in reply to Re: How many triangles does your perl script "see"?
in thread How many triangles does your perl script "see"?

Wow that's wordy. Here's a shorter version; I borrowed (i.e. "ripped off") your initial configuration array:
#!/usr/bin/perl use strict; use warnings; # Input, lines of the figure. my @l = ( [qw [A B]], [qw [A C F I]], [qw [A D G J]], [qw [A E]], [qw [B C D E]], [qw [B F H J]], [qw [B I]], [qw [E G H I]], [qw [E J]], [qw [I J]], ); my %line = (); my %flat = (); for my $l (@l) { for my $p (@$l) { for my $q (@$l) { $line{$p,$q}=1; for my $r (@$l) {$flat{$p,$q,$r}=1} } } } my @p = 'A'..'J'; for my $p (@p) { for my $q (@p) { if ($q gt $p and $line{$p,$q}) { print "[$p,$q,$_]\n" for grep {$_ gt $q and $line{$p,$_} and $line{$q,$_} and not $flat{$p,$q,$_}} @p; } } }

None of that double-$, three-level-deep hashref stuff.

--
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/; map{y/X_/\n /;print}map{pop@$_}@/for@/

Replies are listed 'Best First'.
Re^3: How many triangles does your perl script "see"?
by Perl Mouse (Chaplain) on Oct 28, 2005 at 10:00 UTC
    None of that double-$, three-level-deep hashref stuff.
    True, your solution doesn't use Perl5 style nested hashes. Instead, your code used Perl4 style nested hashes - which aren't really nested and depend on a global variable instead.

    I've put Perl4 behind me. A long, long time ago.

    Perl --((8:>*

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://503450]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (6)
As of 2022-08-10 17:57 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?