Graph colouring: Difference between revisions
Content deleted Content added
m →{{header|Perl 6}}: deterministic output and with BagHash storing Node/NaN => # of Neighbors which can come in handy for future experiments |
m →{{header|Perl 6}}: Huh |
||
Line 645: | Line 645: | ||
return %NodeColor |
return %NodeColor |
||
} |
} |
||
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; |
|||
} |
|||
my \DATA = [ |
my \DATA = [ |