Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"use 5.010;
...
ok 12 - [6, 9, 1, 5] -> [1 .. 9]
ok 13 - no warnings
1..13

sub range {
  return @_ unless @_ > 1;
  my ($min, $max) = (sort { 0+$a <=> 0+$b } @_)[0, -1];
  return $min .. $max;
  }