Is it so different from yours?

Nested map's -v- nested for's

Instead of using sprintf, I multiply the result by 1e3 int it and divide by 1e3 again.

Which bit gave you problem's?

BTW. I noted your comment re: jynx's and lexical sorting when n>10, and realise that mine suffers the same flaw. So, numerisising(is that a word?) the sort, I got

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

The extra 9 chars* cost me dear, and you were winning by 3, but I couldn't have that so...for a round of 76:

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

but that meant using a map in a void context so for the same 76, but avoiding that pesky map

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

By now the light was fading and it was hard to keep my eye on the ball, so bad light stopped play and the tournement can resume tomorrow with jynx first to step up to the tee:)

Update However, during floodlite play, (and stealing jynx's best bits), and retaining the more aesethically pleasing trailing zero suppression:), I give you this for 71

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

---

* I officially motion, on behalf of golfer's everywhere, that Perl6 have a sortn built-in that assumes the $a<=>$b. (Along with rev as an alias for reverse 8^).

---

Well It's better than the Abottoire, but Yorkshire!

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.