Graph colouring: Difference between revisions

my \DATA = [

[<0 1>,<1 2>,<2 0>,<3 NaN>,<4 NaN>,<5 NaN>],

[<1 6>,<1 7>,<1 8>,<2 5>,<2 7>,<2 8>,<3 5>,<3 6>,<3 8>,<4 5>,<4 6>,<4 7>],

[<1 4>,<1 6>,<1 8>,<3 2>,<3 6>,<3 8>,<5 2>,<5 4>,<5 8>,<7 2>,<7 4>,<7 6>],

[<1 6>,<7 1>,<8 1>,<5 2>,<2 7>,<2 8>,<3 5>,<6 3>,<3 8>,<4 5>,<4 6>,<4 7>],

];

for DATA {

say "DATA : ", $_;

say "Result : ";

my %out = GraphNodeColor $_;

say "$_[0]-$_[1]:\t Color %out{$_[0]} ",$_[1].isNaN??''!!%out{$_[1]} for @$_;

say "Nodes : ", %out.keys.elems;

say "Edges : ", $_.elems;

say "Colors : ", %out.values.Set.elems;

}