1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
#!/usr/env/perl
# Task 1 Challenge 050 Solution by phillip-harris
# Merge Intervals
# Write a script to merge the given intervals where ever possible.
# [2,7], [3,9], [10,12], [15,19], [18,22]
# The script should merge [2, 7] and [3, 9] together to return [2,
# 9].
# Similarly it should also merge [15, 19] and [18, 22] together
# to return [15, 22].
# The final result should be something like below:
# [2, 9], [10, 12], [15, 22]
# This seemed so easy at first but took me longer than I care to admit
use strict;
use Data::Dumper;
my @in =
( [ 2, 7 ], [ 3, 9 ], [ 10, 12 ], [ 15, 19 ], [ 18, 22 ] );
for ( my $x = 0 ; $x <= $#in ; $x++ ) {
for ( my $y = 0 ; $y <= $#in ; $y++ ) {
if ( $y == $x ) { next }
my $s1 = $in[$x][0];
my $e1 = $in[$x][1];
my $s2 = $in[$y][0];
my $e2 = $in[$y][1];
my $splice;
my $target;
if ( ( $s2 >= $s1 and $s2 <= $e1 )
or ( $e2 >= $s1 and $e2 <= $e1 )
or ( $s2 <= $s1 and $e2 >= $s1 ) )
{
my @sort = sort { $a <=> $b } ( $s1, $e1, $s2, $e2 );
if ( $y > $x ) { $splice = $y, $target = $x }
if ( $y < $x ) { $splice = $x, $target = $y }
my $temp = splice( @in, $splice, 1 );
#print "splice $splice [@$temp[0],@$temp[1]] -> $target [$sort[0],$sort[3]]\n";
$in[$target][0] = $sort[0];
$in[$target][1] = $sort[3];
$y--;
}
}
}
print Dumper(@in);
|
