Select Code to Download

#!/usr/bin/perl -w
use strict;
...
print "@output\n";
@output= tsort( [1,2,3,4], [1,3,2,4] );
print "@output\n";

1 2 3 4 5 6
Data contains a cycle, breaking at 2.
1 2 3 4