在perl中加入间隔

Question

首先让我举个例子：

我有一组间隔，如

[1,4],[5,15],[16,20]

和另一个喜欢

[2,3],[6,14]

我希望它变成像

这样的一套

[1,2],[3,4],[5,6],[7,15],[16,20]

我不确定这个操作是什么，如果标题有误导性，请忘记我。是否有我可以使用的CPAN模块，或者更好地提出我自己的解决方案？有一个众所周知的算法吗？

Answer 1

使用List :: Util中的pairs函数是一种可能的解决方案。

#!/usr/bin/perl
use strict;
use warnings;
use List::Util 'pairs';

my @a1 = ([1,4],[5,15],[16,20]);
my @a2 = ([2,3],[6,14]);

my @new = pairs sort {$a <=> $b} map {@$_} @a1, @a2;

use Data::Dumper; print Dumper \@new;

打印

$VAR1 = [
          [
            1,
            2
          ],
          [
            3,
            4
          ],
          [
            5,
            6
          ],
          [
            14,
            15
          ],
          [
            16,
            20
          ]
        ];

Answer 2

一步一步的方法：

#!/usr/bin/perl
use Data::Dumper;

my @set1 = ([1,4],[5,15],[16,20]);
my @set2 = ([2,3],[6,14]);

# Make the tuples into an unsorted list
my @nums = ();
foreach my $tuple (@set1,@set2) {
    foreach my $num (@{$tuple}) {
        push @nums, $num;
    }
}

# Sort the list
my @sorted = sort {$a <=> $b} @nums;
print "@sorted\n";

# Retuple
my @finalset = ();
while(my @tuple = splice(@sorted,0,2)) {
    push @finalset, \@tuple;
}
print Dumper(\@finalset);