Topological Sort

Score: 119.47 (fail)

My first time here!

#!perl -lan
END{print for @A}@H{@A}=reverse 1..@A;pop@F if$F[0]eq$F[1];($X,$Y)=@H{@F};$X&&$Y?$X<$Y&&die:splice@A,@A-$X-$Y,1,@F

Score: 130.47 (pass)

#!perl -lan
END{map{print;delete$C{$_}}grep{!grep{$C{$_}}keys%{$C{$_}}}keys%C or die while%C}($l,$r)=@F;$C{$l}{\n}=$l ne$r?$C{$r}{$l}=1:1