Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/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";
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement