my @array_I_just_created_here = (a .. z);
my @hash_I_just_created_here{@array_I_just_created_here} = ();
print "yes, c is a letter that would exist within that array you just created there.$/" if exists $hash_I_just_created_here{"c"};
####
my $found = 0;
my @array_I_just_created_here = (a .. z);
$found |= ("c" eq $array_I_just_created_here[$_]) foreach (0..$#array_I_just_created_here);
print "yes, c is a letter that would exist within that array you just created there.$/" if $found;
##
##
my $find_item = "c";
my @array_I_just_created_here = (a .. z);
my $pos = bin_search(\@array_I_just_created_here, $find_item, 0, $#array_I_just_created_here);
print "yes, c is a letter that would exist within that array you just created there.$/" if ($a[$pos] eq $find_item);
sub bin_search {
my ($array, $val, $min, $max) = @_;
my $pos = int($min + $max / 2);
my $check = $val cmp $array->[$pos];
if ($check == -1) {
$pos--;
return $pos if ($pos <= $min);
return bin_search($array, $val, $min, $pos);
}
elsif ($check == 0) {
return $pos;
}
else {
$pos++;
return $pos if ($pos >= $max);
return bin_search($array, $val, $pos, $max);
}
}
##
##
print "yes, c is a letter that would exist within that array you hadn't created there.$/" if "c" =~ m/^(?:a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z)$/;
##
##
use Quantum::Superpositions;
my @array_I_just_created_here = (a .. z);
print "yes, c is a letter that would exist within that array you just created there.$/" if ("c" eq any(@array_I_just_created_here);