•Re: Render numeric sequence as array of letters


The stupid question is the question not asked
	PerlMonks

•Re: Render numeric sequence as array of letters

by merlyn (Sage)

on May 19, 2003 at 21:19 UTC ( [id://259296]=note: print w/replies, xml )

Need Help??

in reply to Render numeric sequence as array of letters

It looks like you want ordered rank.

my @original = qw(5, 100, 2, 8, 40);
my @sorted_indicies = sort { $original[$a] <=> $original[$b] } 0..$#or
+iginal;
my @rank;
@rank[@sorted_indicies] = 0..$#sorted_indicies;
my @letters = map { chr(ord('A') + $_) } @rank;
print "@letters\n";
[download]

That gives me "B E A C D", just like you want.

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.