Topological Sort

Score: 157.49 (pass)

#!perl -nl
($",$b)=split;$"ne$b&&$l{$b}->{$"}++;$l{$"}||={};END{while(%l){(($c)=grep{!%{$l{$_}}}keys%l)||die;print$c;delete$l{$c};for(keys%l){delete$l{$_}->{$c};}}}

Score: 161.47 (pass)

#!perl -nl
($",$b)=split;$"ne$b&&$l{$b}->{$"}++;$l{$"}||={};END{while(%l){(($c)=grep{!keys%{$l{$_}}}keys%l)||die;print$c;delete$l{$c};for(keys%l){delete$l{$_}->{$c};}}}

Score: 164.48 (pass)

#!perl -nl
($",$b)=split;($"ne$b)&&$l{$b}->{$"}++;$l{$"}||={};END{while(%l){(($c)=grep{!keys%{$l{$_}}}keys%l)||die;print$c;delete$l{$c};for(keys%l){delete $l{$_}->{$c};}}}

Score: 192.50 (pass)

#!perl -nl
($",$b)=split;($"ne$b)&&push@{$l{$b}},$";$l{$"}||=[];END{while(%l){$o=0;for$c(keys%l){if(!@{$l{$c}}){print$c;$o++;delete$l{$c};for(keys%l){$l{$_}=[grep{$_ ne$c}@{$l{$_}}];}}}!$o&&exit 1;}}

Score: 193.49 (pass)

#!perl -nl
($a,$b)=split;($a ne$b)&&push@{$l{$b}},$a;$l{$a}||=[];END{while(%l){$o=0;for$c(keys%l){if(!@{$l{$c}}){print$c;$o++;delete$l{$c};for(keys%l){$l{$_}=[grep{$_ ne$c}@{$l{$_}}];}}}!$o&&exit 1;}}

Score: 212.48 (pass)

#!perl -nl
($a,$b)=split;($a ne$b)&&push@{$l{$b}},$a;$l{$a}||=[];END{while(%l){@j=sort{@{$l{$a}}<=>@{$l{$b}}}keys%l;$c=shift @j;(@{$l{$c}})&&exit(1);print$c;delete$l{$c};foreach$d(@j){$l{$d}=[grep{$_ ne$c}@{$l{$d}}];}}}

Score: 216.49 (fail)

#!perl -nl
($a,$b)=split;($a ne$b)&&push@{$l{$b}},$a;$l{$a}||=[];END{while(%l){@j=sort{@{$\
l{$a}}<=>@{$l{$b}}}keys%l;$c=shift @j;(@{$l{$c}})&&exit(1);print$c;delete$l{$c}\
;foreach$d(@j){$l{$d}=[grep{$_ ne$c}@{$l{$d}}];}}}