Tarjan: Difference between revisions

<lang perl>use feature 'state'5.016;

ourmy (%k) = @_;

ourmy (%onstack, %index, %lowlink, @stack, @connected);

my sub strong_connect {

my ($vertex, $i) = @_;

state $index{$vertex} = 0$i;

$indexlowlink{$vertex} = $i =+ $index1;

$lowlinkonstack{$vertex} = $index++1;

push @stack, $vertex;

for my $onstackconnection (@{$k{$vertex}}) = 1;{

for my $connection if (@{not defined $kindex{$vertex}connection}) {

if (not $index{ __SUB__->($connection}), {$i + 1);

$lowlink{$vertex} strong_connect= min($lowlink{$connection}, $lowlink{$vertex});

} elsif ($onstack{$connection}) {

$lowlink{$vertex} = min($lowlinkindex{$connection}, $lowlink{$vertex});

}

strong_connect($_, 0) unless $index{$_};

@connected;

0 => [1],

1 => [2],

2 => [0],

3 => [1, 2, 4],

4 => [3, 5],

5 => [2, 6],

6 => [5],

7 => [4, 6, 7]

'Andy' => ['Bart'],

'Bart' => ['Carl'],

'Carl' => ['Andy'],

'Dave' => [qw<Bart Carl Earl>],

'Earl' => [qw<Dave Fred>],

'Fred' => [qw<Carl Gary>],

'Gary' => ['Fred'],

'Hank' => [qw<Earl Gary Hank>]