linear_search

linear_search.pl

#!/usr/bin/env perl

use strict;
use warnings;
use feature 'say';

use DDP { deparse => 1 };

my @seeds;
for (1..100){
    push(@seeds, int(rand(100)));
}
my %hash;
@seeds = grep{!$hash{$_}++}@seeds;

my $target = int(rand(100));
print "target:$target\n";
p @seeds;

my $i = 0;
for my $j (@seeds){
    if ($j == $target){
        print "target:$target\n";
        print "i:$i\n";
        exit;
    }
    $i++;
}
print "not ther\n";