Topological Sort

Score: 127.53 (pass)

#!perl -ln
$r{$1}{$`}=/ (.*)/}{sub v{$c{$"=$_}=2;$_ ne$"and$c{$_}?$c{$_}^2||die:&v for keys%{$r{$_}};$c{$_}=print}$c{$_}||v for keys%r

Score: 131.54 (pass)

#!perl -ln
$r{$2}{$1}=/(.*) (.*)/}{sub v{$c{$"=$_}=2;$_ ne$"and$c{$_}?$c{$_}^2||die:&v for
keys%{$r{$_}};$c{$_}=print}$c{$_}||v for keys%r