fork download
copy 
  1. #!/usr/bin/perl
  2. for (<STDIN>){
  3.   print;
  4.   my @b;
  5.   for (/([-\d]+)/g) {
  6.     @a = /(\d+)/g;
  7.     $a[1] = $a[0] unless $a[1];
  8.     @a = sort{$a<=>$b} @a;
  9.     do {push(@b, $_) if 0<$_ and $_<=99999}
  10.       for $a[0]..$a[1];
  11.   }
  12.   %h = map{$_=>1} @b;
  13.   print '['.join(',', sort{$a<=>$b} keys %h)."]\n";
  14. }
Success #stdin #stdout 0s 4308KB
comments (?)
stdin
copy 
>>1
>>1-3
>>1,3
>>1-3,5,9-10
>>000000-000000001
>>289494
>>0-2,99998-100000
>>3,0-3,4,5,6,4,2-8
>>4-1
stdout
copy 
>>1
[1]
>>1-3
[1,2,3]
>>1,3
[1,3]
>>1-3,5,9-10
[1,2,3,5,9,10]
>>000000-000000001
[1]
>>289494
[]
>>0-2,99998-100000
[1,2,99998,99999]
>>3,0-3,4,5,6,4,2-8
[1,2,3,4,5,6,7,8]
>>4-1
[1,2,3,4]
https://ideone.com/LDJrW8
language:
Perl (perl 5.28.1)
created:
6 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!