У меня есть код, который пытается найти Эйлеровский путь. Но почему-то это не сработает.
Что не так с кодом?
use strict;
use warnings;
use Data::Dumper;
use Carp;
my %graphs = ( 1 => [2,3], 2 => [1,3,4,5], 3 =>[1,2,4,5], 4 => [2,3,5], 5 => [2,3,4]);
my @path = eulerPath(%graphs);
su...
27 окт. 2010, в 10:55