Dijkstra's algorithm: Difference between revisions

Content deleted Content added

Inline

@@ Line 3,696: / Line 3,696: @@
     for my $v (values %$g) {
         $v->{dist} = 10e7; # arbitrary large value
-        delete $v->{prev};
+        delete @$v{'prev', 'visited'}
-        delete $v->{visited};
+     }
-    }
     $g->{$a}{dist} = 0;
     my $h = [];