I wrote a regex for Perl 5.6 that does this. It can be modified easily for letters:

sub list2range {
  local $_ = join ',' => @_;
  s/(\w+)(?:,((??{''.++(my$x=$+)})))+/$1-$+/g;
  return $_;
}
[download]

japhy -- Perl and Regex Hacker