Topological Sort

Score: 112.56 (pass)

#!perl -nl
$h{_}{$'}=/ /;$h{$'}{$`}=1if$`ne$'}{sub z{$u{$_}++&&die,$y{$_}||=z($_)+print,$u{$_}--for keys%{$h{+pop}}}z _

Score: 113.56 (pass)

#!perl -nl
$h{$;}{$'}=/ /;$h{$'}{$`}=1if$`ne$'}{sub z{$u{$_}++&&die,$y{$_}++||z($_)&print,$u{$_}--for keys%{$h{+pop}}}z$

Score: 114.56 (pass)

#!perl -nl
$h{$"}{$'}=/ /;$h{$'}{$`}=1if$`ne$'}{sub z{$u{$_}++&&die,$y{$_}++||z($_)&print,$u{$_}--for keys%{$h{+pop}}}z$"

Score: 115.57 (pass)

#!perl -nl
$h{$"}{$'}=/ /;$h{$'}{$`}=1if$`ne$'}{sub z{map{$u{$_}++&&die,$y{$_}++||z($_)&print,$u{$_}--}keys%{$h{+pop}}}z$"

Score: 115.65 (pass)

#!perl -nl
$h{$'}{$"}=/ /;$h{$`}{$'}=$`ne$'}{sub z{map$h{$_}{$_[0]}&&($u{$_}++&&die,$y{$_}++||z($_)&print,$u{$_}--),%h}z$"

Score: 117.65 (pass)

#!perl -nl
/ /;$h{$'}{$"}=1;$h{$`}{$'}=$`ne$'}{sub z{map$h{$_}{$_[0]}&&($u{$_}++&&die,$y{$_}++||z($_)&print,$u{$_}--),%h}z$"

Score: 121.66 (pass)

#!perl -nl
/(.+) /;$h{$'}{$"}=1;$h{$1}{$'}=$1ne$'}{sub z{map$h{$_}{$_[0]}&&($u{$_}++&&die,$y{$_}++||z($_)&print,$u{$_}--),%h}z$"

Score: 122.66 (pass)

#!perl -nl
/(.+) /;$h{$'}{$"}=1;$h{$1}{$'}=$1ne$'}{sub z{map$h{$_}{$_[0]}&&($u{$_}++&&die,$y{$_}++||z($_)&&print,$u{$_}--),%h}z$"

Score: 128.62 (pass)

#!perl -nl
/(.+) /;$h{$'}{$"}=1;$h{$1}{$'}=$1ne$'}{sub z{my$x=pop;map$h{$_}{$x}&&{$u{$_}++&&die,$y{$_}++||z($_)&&print,$u{$_}--},%h}z$"

Score: 131.62 (pass)

#!perl -nl
/(.+) /;$h{$'}{$"}=1;$h{$1}{$'}=1if$1ne$'}{sub z{my$x=pop;map$h{$_}{$x}&&{$u{$_}++&&die,$y{$_}++||z($_)&&print,$u{$_}--},%h}z$"

Score: 135.61 (pass)

#!perl -anl
($;,$~)=@F;$h{$~}{$"}=1;$h{$;}{$~}=1if$;ne$~}{sub z{my$x=pop;map$h{$_}{$x}&&{$u{$_}++&&die,$y{$_}++||z($_)&&print,$u{$_}--},%h}z$"

Score: 137.58 (pass)

#!perl -anl
($a,$b)=@F;$h{$b}{$"}=1;$h{$a}{$b}=1if$a ne$b}{sub z{my$x=pop;map{$h{$_}{$x}&&{$u{$_}++&&die,$y{$_}++||z($_)&&print,$u{$_}--}}%h}z$"

Score: 139.57 (pass)

#!perl -anl
($a,$b)=@F;$h{$b}{$"}=1;$h{$a}{$b}=1if$a ne$b}{sub z{my$x=pop;map{if($h{$_}{$x}){$u{$_}++&¨$y{$_}++||z($_)&&print;$u{$_}--}}%h}z$"

Score: 141.54 (fail)

#!perl -anl
($a,$b)=@F;$h{$b}{$"}||=1;$h{$a}{$b}=1if$a ne$b}{sub z{my$x=pop;for(keys%h){if($h{$_}{$x}){$u{$_}++>1e5&¨z($_);$u{$_}<2&&print}}}z$"

Score: 146.55 (fail)

#!perl -anl
($a,$b)=@F;$h{$b}{$"}||=1;$h{$a}{$b}=1if$a ne$b}{sub z{my$x=pop;map{if($h{$_}{$x}){$u{$_}++>9&¨z($_);$y{$_}++||print;$u{$_}--}}keys%h}z$"

Score: 156.50 (fail)

#!perl -lna
$h{$F[0]}||=0;$h{$F[1]}||=$F[0]if$F[1]ne$F[0]}{@t=0;while(%h){@m=();for(keys%h){for$t(@t){if($h{$_}eq$t){print;push@m,$_;delete$h{$_}}}}@m||last;@t=@m}

Score: 166.51 (fail)

first effort

#!perl -lna
$h{$F[0]}||=0;$h{$F[1]}||=$F[0]if$F[1]ne$F[0]}{@t=0;while(%h){@m=();$o=1;for(keys%h){for$t(@t){if($h{$_}eq$t){print;push@m,$_;delete$h{$_};$o=0}}}$o&&last;@t=@m}