# 27 * 3 - 1 = 80 chars sub num2range { #23456789012345678901234567 my$x=join',',sort{$a-$b}@_; $x=~s/(?<!\d)(\d+)(?:,((??{ $++1})))+(?!\d)/$1-$+/g;$x }
_____________________________________________________
Jeff[japhy]Pinyan:
Perl,
regex,
and perl
hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;
In reply to Re: (Golf) Rangify Array
by japhy
in thread (Golf) Rangify Array
by demerphq
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |