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
|
#!/usr/bin/perl
use warnings;
use strict;
use FindBin;
# We've already solved the challenge in week 50. Load the code from
# the challenge, but skip its tests.
BEGIN {
$INC{'Test/More.pm'} = 1;
sub is_deeply {}
}
do "$FindBin::Bin/../../../challenge-050/e-choroba/perl/ch-1.pl";
sub insert_interval {
my ($intervals, $new) = @_;
my $skip = 'MyInterval'->new;
$skip->insert(@$_) for @$intervals, $new;
return $skip->out
}
# Now, enable testing again so we can test the solution.
delete $INC{'Test/More.pm'};
require Test::More;
'Test::More'->import(tests => 3 + 2);
is_deeply insert_interval([[1, 4], [8, 10]], [2, 6]),
[[1, 6], [8, 10]], 'Example 1';
is_deeply insert_interval([[1, 2], [3, 7], [8, 10]], [5, 8]),
[[1, 2], [3, 10]], 'Example 2';
is_deeply insert_interval([[1, 5], [7, 9]], [10, 11]),
[[1, 5], [7, 9], [10, 11]], 'Example 3';
is_deeply insert_interval([[3, 5], [7, 9]], [1, 2]),
[[1, 2], [3, 5], [7, 9]], 'Insert first';
is_deeply insert_interval([[2, 3], [4, 5], [7, 9]], [1, 10]),
[[1, 10]], 'Merge all';
|
