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
|
#!/usr/bin/env perl
use strict;
use warnings;
use feature qw{ say signatures state };
no warnings qw{ experimental };
my @ns;
push @ns, [ 3, [ 1, 2, 3, 4 ] ];
push @ns, [ 6, [ 1, 3, 5, 7 ] ];
push @ns, [ 10, [ 12, 15, 16, 18 ] ];
push @ns, [ 19, [ 11, 13, 15, 17 ] ];
for my $m (@ns) {
my $n = $m->[0];
my @n = $m->[1]->@*;
my $i = search_insert_position( $n, @n );
say qq{Input: \$n = $n};
say qq{ \@n = } . join ', ', @n;
say qq{Output: \$i = $i};
say '';
}
sub search_insert_position ( $n, @n ) {
my $i = 0;
while ( $i < @n ) {
return $i if $n <= $n[$i];
$i++;
}
return $i;
}
|
