Dijkstra's algorithm: Difference between revisions
Content deleted Content added
SqrtNegInf (talk | contribs) m →{{header|Perl}}: use True not '1', some additional fiddling |
SqrtNegInf (talk | contribs) m →{{header|Perl}}: DRY |
||
Line 3,696:
for my $v (values %$g) {
$v->{dist} = 10e7; # arbitrary large value
delete @$v
$g->{$a}{dist} = 0;
my $h = [];
| |||