Select Code to Download

#! perl -w
sub H($$){
...
#234567890123456789012345678901234567890123456789012345678901234567890
+12345678901234
map{int(1e3*$_*$_[0])/1e3}grep!$_{$_}++,sort{$a<=>$b}map{$.=$_;map$./$
+_,1..$_}1..pop
}

sub H($$){
#________1_________2_________3_________4_________5_________6_________7
+______
#234567890123456789012345678901234567890123456789012345678901234567890
+123456
map{$.=$_,map$_{int($_[0]*1e3*$./$_)/1e3}++,1..$_}1..pop;sort{$a<=>$b}
+keys%_
}

sub H($$){
#________1_________2_________3_________4_________5_________6_________7
+______
#234567890123456789012345678901234567890123456789012345678901234567890
+123456
$.=$_,map$_{int($_[0]*1e3*$./$_)/1e3}++,1..$_ for 1..pop;sort{$a<=>$b}
+keys%_
}

sub H($$){
#________1_________2_________3_________4_________5_________6_________7
+_
#234567890123456789012345678901234567890123456789012345678901234567890
+1
for$.(1..pop){$_{int($_[0]*1e3*$./$_)/1e3}++for 1..$.}sort{$a-$b}keys%
+_
}