fork(1) download
copy 
  1. #!/usr/bin/perl
  2. for (<STDIN>){
  3.   print;
  4.   @b = ();
  5.   for (/([-\d]+)/g) {
  6.     my @a = map{$_>99999?99999:$_} /(\d+)/g;
  7.     $a[1] = $a[0] unless $a[1];
  8.     ($a[1], $a[0]) = ($a[0], $a[1]) if $a[0] > $a[1];
  9.     push @b, [@a];
  10.   }
  11.   @c = sort{$a->[0] <=> $b->[0]} @b;
  12.   $i = $c[0][0]-1;
  13.   my @d;
  14.   for (@c) {
  15.     for ($_->[0] .. $_->[1]) {
  16.       if ($i < $_) {
  17. 		push @d, $_;
  18. 		$i = $_;
  19.       }
  20.     }
  21.   }
  22.   print '['.join(',', @d)."]\n";
  23. }
Success #stdin #stdout 0s 18256KB
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
[0,1]
>>289494
[99999]
>>0-2,99998-100000
[0,1,2,99998,99999]
>>3,0-3,4,5,6,4,2-8
[0,1,2,3,4,5,6,7,8]
>>4-1
[1,2,3,4]
https://ideone.com/fp3VSt
language:
Perl (perl 5.28.1)
created:
7 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!