fork download
copy 
  1. #!/usr/bin/perl
  2. for (<STDIN>){
  3.   print;
  4.   for (/([-\d]+)/g) {
  5.     @a = map{$_>99999?99999:$_} /(\d+)/g;
  6.     $a[1] = $a[0] unless $a[1];
  7.     print "$_ " for $a[0]..$a[1];
  8.     print "\n";
  9.   }
  10. }
Success #stdin #stdout 0s 4300KB
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
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-83 
0 1 2 3 
4 
5 
6 
4 
2 3 4 5 6 7 8
https://ideone.com/WY0Jb6
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!