Select Code to Download

#! perl -w
sub H($$){
...
600

C:\test>

sub H($$){
map{int(1e3*$_*$_[0])/1e3}grep!$_{$_}++,sort map{$.=$_;map$./$_,1..$_}
+1..pop
}