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

(Golf) Shortest Graph Distance

by Masem (Monsignor)
on May 11, 2001 at 22:49 UTC ( [id://79811] : perlmeditation . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    %g = ( Chicago => { Cleveland=>400 },
           Cleveland => { Chicago=>400 } );
    
  2. or download this
    my %g = ( Chicago=>{ Detroit=>250,
                         Cleveland=>400,
    ...
    d( \%g, 'Denver', 'Cleveland' ); # should be ( 'Denver', 'Chicago', 'C
    +leveland' )
    d( \%g, 'Cleveland', 'Denver' ); # should be 
    ( 'Cleveland', 'Chicago', 'Denver' );