fork(1) download
copy 
  1. use warnings;
  2. use strict;
  3.  
  4. my $prev;
  5. while (<DATA>) {
  6.   chomp;
  7.   next unless /\S/;
  8.   my @numbers = split /,/;
  9.   if (defined $prev && $numbers[3] == $prev + 1) {
  10.     print '-' . ++$prev;
  11.     next;
  12.   }
  13.   print "\n" if defined $prev;
  14.   print join ',', @numbers;
  15.   $prev = $numbers[3];
  16. }
  17. __DATA__
  18. -7,6,101,15
  19.  
  20. -7,6,101,16
  21.  
  22. -7,6,101,17
  23.  
  24. -7,6,101,78
  25.  
  26. -7,6,101,79
  27.  
  28. -7,6,101,84
  29.  
  30. -7,6,101,92
  31.  
  32. -7,9,615,49
  33.  
  34. -7,9,615,50
  35.  
  36. -7,10,759,38
  37.  
  38. -7,10,759,39
Success #stdin #stdout 0s 3744KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
-7,6,101,15-16-17
-7,6,101,78-79
-7,6,101,84
-7,6,101,92
-7,9,615,49-50
-7,10,759,38-39
https://ideone.com/eN2CUH
language:
Perl (perl 5.28.1)
created:
10 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!