Topological sort/Extracted top item: Difference between revisions

Content added Content deleted
(Pascal draft)
m (→‎{{header|Pascal}}: some code correction)
Line 836: Line 836:
end;
end;
begin
begin
if not g.ContainsKey(aTarget) then exit([aTarget]);
Stack := TList<string>.Create;
Stack := TList<string>.Create;
Visited := THashSet<string>.Create;
Visited := THashSet<string>.Create;
Retrieved from "https://rosettacode.org/wiki/Topological_sort/Extracted_top_item"