Topological Sort

Score: 97.47 (pass)

#!perl -alp
($_,my$y)=map{bless$x{$_}||=[$_]}@F;$_-$y&&push@$_,$y}DESTROY{$d?dump:print$_[0][0]}{$d=%x=q

Score: 99.46 (fail)

#!perl -alp
my($x,$y)=map{bless$x{$_}||=[$_]}@F;$x-$y&&push@$x,$y}DESTROY{$d?dump:print$_[0][0]}{%x=0;$d=q

Score: 100.50 (pass)

#!perl -ap
my($x,$y)=map{$x{$_}||=bless[$_]}@F;$x-$y&&push@$x,$y}DESTROY{$0?$\.=$_[0][0].$/:dump}{%x=1;$0=0

Score: 102.46 (pass)

#!perl -ap
my($x,$y)=map{$s{$_}||=bless[$_]}@F;$x==$y||push@$x,$y}DESTROY{$\.=$_[0][0].$/;$d&&dump}{%s=0;$d=1

Score: 108.61 (fail)

This code is NOT valid. It fails on a line consisting of "0 0" only. However, it passes the test script.

#!perl -p
/ (.*)/;bless$x{$_}||={"",($_)x3}for$`,$1;$x{$`}{$1}||=$x{$1}}DESTROY{$0?$\.=$_[0]{""}.$/:dump}{%x=1;$0=0