fork download 
  1. #!/usr/bin/perl
  2.  
  3. use strict;
  4. use warnings;
  5.  
  6. use Data::Dumper;
  7.  
  8. while (<DATA>) {
  9.     chomp;
  10.  
  11.     my @numbers = split ',';
  12.     print "(@numbers)\n";
  13.  
  14.     my $last_diff;
  15.     my $start = $numbers[0];
  16.     my @all_series;
  17.     for my $i (1 .. $#numbers + 1) {
  18.         my $diff;
  19.         if ($i < $#numbers + 1) {
  20.             $diff = $numbers[$i] - $numbers[ $i - 1 ];
  21.         }
  22.  
  23.         # Merge with the last number from the previous series if needed:
  24.         if (!$last_diff # Just starting a new series.
  25.             and $i > 2  # Far enough to have preceding numbers.
  26.             and $diff and $diff == $numbers[ $i - 1 ] - $numbers[ $i - 2 ]
  27.            ) {
  28.             $all_series[-1]{end} = $numbers[ $i - 3 ];
  29.             $all_series[-1]{offset} = 0 if $all_series[-1]{start} == $all_series[-1]{end};
  30.             $start = $numbers[ $i - 2 ];
  31.         }
  32.  
  33.         if (! $diff or ( $last_diff && ($last_diff != $diff)) ) {
  34.             push @all_series, { start  => $start,
  35.                                 end    => $numbers[ $i - 1 ],
  36.                                 offset => $last_diff,
  37.                               };
  38.             $start = $numbers[$i];
  39.             undef $diff;
  40.         }
  41.         $last_diff = $diff;
  42.     }
  43.  
  44.     print Dumper \@all_series;
  45.     print "\n";
  46. }
  47.  
  48. __END__
  49. 1,2,3,10,12,14
  50. 1,2,3,5,7
  51. 1,7,8,9
  52. 1,2,3,7,8,11,13,15,22,100,150,200
  53. 2,3,5,8,13,21,34,55,89
  54. 1,2,3,9,10,12,14,15,20,25
  55.  
Success #stdin #stdout 0.03s 5088KB
comments (?)
stdin 
Standard input is empty
stdout 
(1 2 3 10 12 14)
$VAR1 = [
          {
            'offset' => 1,
            'end' => 3,
            'start' => '1'
          },
          {
            'offset' => 2,
            'end' => 14,
            'start' => 10
          }
        ];

(1 2 3 5 7)
$VAR1 = [
          {
            'offset' => 1,
            'end' => 2,
            'start' => 1
          },
          {
            'offset' => 2,
            'end' => 7,
            'start' => 3
          }
        ];

(1 7 8 9)
$VAR1 = [
          {
            'offset' => 0,
            'end' => 1,
            'start' => 1
          },
          {
            'offset' => 1,
            'end' => 9,
            'start' => 7
          }
        ];

(1 2 3 7 8 11 13 15 22 100 150 200)
$VAR1 = [
          {
            'offset' => 1,
            'end' => 3,
            'start' => '1'
          },
          {
            'offset' => 1,
            'end' => 8,
            'start' => 7
          },
          {
            'offset' => 2,
            'end' => 15,
            'start' => 11
          },
          {
            'offset' => 0,
            'end' => 22,
            'start' => 22
          },
          {
            'offset' => 50,
            'end' => 200,
            'start' => 100
          }
        ];

(2 3 5 8 13 21 34 55 89)
$VAR1 = [
          {
            'offset' => 1,
            'end' => 3,
            'start' => '2'
          },
          {
            'offset' => 3,
            'end' => 8,
            'start' => 5
          },
          {
            'offset' => 8,
            'end' => 21,
            'start' => 13
          },
          {
            'offset' => 21,
            'end' => 55,
            'start' => 34
          },
          {
            'offset' => undef,
            'end' => 89,
            'start' => 89
          }
        ];

(1 2 3 9 10 12 14 15 20 25)
$VAR1 = [
          {
            'offset' => 1,
            'end' => 3,
            'start' => '1'
          },
          {
            'offset' => 0,
            'end' => 9,
            'start' => 9
          },
          {
            'offset' => 2,
            'end' => 14,
            'start' => 10
          },
          {
            'offset' => 5,
            'end' => 25,
            'start' => 15
          }
        ];
https://ideone.com/grV9cb
language:
Perl (perl 5.28.1)
created:
11 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!