Download | Plain Text | No Line Numbers
- #!/usr/bin/perl
-
- use strict;
- use Data::Dumper;
-
- my @a = (0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20);
-
- sub expSearch
- {
- my ($a, $l, $r, $k) = @_;
-
- if ($a[$l] == $k)
- {
- }
- if ($l >= $r)
- {
- }
-
- my $i = 1;
- while($l+$i < $r && $k > $a[$l+$i])
- {
- $i = 2*$i;
- }
- if ($k == $a[$l+$i])
- {
- }
- if (($l+$i) > $r)
- {
- }
- }
-
-