Re^2: Finding Eulerian Path

The splice/shift trick worked. Just replace the 2 lines of delete with:

                splice @{ $graph{$u} }, $index, 1;
                shift @{ $graph{$v} };
[download]

and it worked great!

Comment on Re^2: Finding Eulerian Path Download Code

Replies are listed 'Best First'.
Re^3: Finding Eulerian Path by Anonymous Monk on Jan 15, 2012 at 10:09 UTC
And Forgot to add this modification too, in the if() statement: `if ( $graph{$v} ) {` [download] to: `if ( @{$graph{$v}} ) {` [download]	[reply] [d/l] [select]