Topological Sort

Score: 122.52 (pass)

#!perl -nl
/ /;$f{$_}++||push@{$a{$'}},$`eq$'?():$`}sub v{$b{$_}++?die:&v,--$b{$_}for@{$a{$_}};$p{$_}++||print}for(keys%a){my%b;v

Score: 125.53 (pass)

#!perl -nl
/ /;$f{$_}++||push@{$a{$'}},$`eq$'?():$`}sub v{$b{$_}++?die:v($_),--$b{$_}for@{$a{$_}};$p{$_}++||print}for(keys%a){my%b;v

Score: 133.52 (pass)

#!perl -nla
($;,$a)=@F;$f{$_}++||push@{$a{$a}},$;eq$a?():$;}sub v{$b{$_}++?die:v($_),--$b{$_}for@{$a{$_}};$p{$_}++||print}for(keys%a){my%b;v

Score: 135.53 (pass)

#!perl -nla
($;,$a)=@F;$f{$_}++||push@{$a{$a}},$;eq$a?():$;}
sub v{$b{$_}++?die:v($_),--$b{$_}for@{$a{$_}};$p{$_}++||print}
for(keys%a){my%b;v

Score: 140.52 (pass)

#!perl -nla
$f{$_}++&&next;($;,$a)=@F;push@{$a{$a}},$;eq$a?():$;}
sub v{$b{$_}++?die:v($_),--$b{$_}for@{$a{$_}};$p{$_}++||print}
for(keys%a){my%b;v