Perl实例---最小空间使用情况下合并有序数组

Posted 2021-04-17 EasyPerl

给你两个有序整数数组 nums1 和 nums2，请你将 nums2 合并到 nums1 中，使 nums1 成为一个有序数组。 

说明:

初始化 nums1 和 nums2 的元素数量分别为 m 和 n 。

你可以假设 nums1 有足够的空间（空间大小大于或等于 m + n）来保存 nums2 中的元素。

 

分析：

合并数组我们首先想到的是归并排序，每边逐次取数比较， 然后合并， 这里我们需要尽量减少空间使用， 因此我们可以通过归并排序， 从后往前插入数据， 这样我们只需要使用nums1中 m+n大小的空间， 也就是不需要额外的空间就可以进行所有的操作。

具体我们根据例子来看：

my @nums1 = (1,3,5,7,9);

my @nums2 = (0,3,4,6,16);

my $length1 = scalar @nums1;

my $length2 = scalar @nums2;

这里我们需要3个指针， 2个指针分别指向当前进行比较的元素（从后开始）， 1个指针指向nums1当前插入的位置（我们也是从后往前插入/修改）。

my $index1 = $length1 - 1;

my $index2 = $length2 - 1;

my $index  = $length1 + $length2 - 1;

 

while(1){

if($nums1[$index1] >= $nums2[$index2]){

$nums1[$index] = $nums1[$index1];

$index1--;

}else{

$nums1[$index] = $nums2[$index2];

$index2--;

}

$index--;

print "@nums1\n";

print "@nums2\n";

       

         由于我们使用的是无限循环，因此我们需要指定退出条件，当我们其中一个数组中的内容使用完以后， 我们只需要把另一个数组剩下的元素直接一次性插入，就可以退出了

        如果是nums2数组先比较完， 那么我们不需要任何额外的操作， 因为剩余的nums1数组元素本来就是排序过的。

last if $index2 < 0;

        如果是nums1数组先比较完，那么我们只需要把nums2剩余的元素直接复制到nums1数组的开头即可。

if ($index1 < 0){

@nums1[0..$index] = @nums2[0..$index2];

last;

}

}

print "result: @nums1 \n";