Topological Sort

Score: 123.60 (pass)

#!perl -l
map{/ (.*)/,($o{$`}+=0)<$o{$1}or$`eq$1or$o{$1}=$o{$`}+1,o/($o{$1}<$.)}(<>)x++$.;for$i(0..$.){map$o{$_}^$i||print,keys%o}

Score: 128.61 (pass)

#!perl -l
map{/ (.*)/,($o{$`}+=0)<($o{$1}+=0)or$`eq$1or$o{$1}=$o{$`}+1,o/($o{$1}<$.)}(<>)x++$.;for$i(0..$.){map$o{$_}^$i||print,keys%o}

Score: 130.58 (pass)

#!perl -l
$f=0,map{/ (.*)/,($o{$`}+=0)<($o{$1}+=0)or$`eq$1or$f=$o{$1}=$o{$`}+1}@0for(@0=<>,$,=$/);1/!$f,print sort{$o{$a}<=>$o{$b}}keys%o