Dotaz: Perl a generator nahodnych cis

[lazyboy]

Ahoj chlapi, mám problem a nemůžu to za živýho boha dát dohromady. Mam níže popsanej skript,kterej generuje nahodne 4 cisla z dvaceti, ale potřebuju aby se tam cisla neopakovala. #!/usr/bin/perl -w

srand; $cislo=4; $maximum=20; $generuj=0; sub generace { while($generuj<$cislo) { $mojecislo=int(rand($maximum)); $generuj++;

push(@pole,$mojecislo); } }

sub vypis { for ($i=0;$i<@pole;$i++) { print "$pole[$i] "; } }

&generace; &vypis; print "\n";

Diky s pomoci

Odpovědi

[Jáchym Čepický]

určitě to jde elegantnějc... doufám, že to takhle funguje

srand;
$min=4;
$maximum=20;
$generuj=0;
my @pole = ();
my $tmp = 0;

sub generace {
        while($generuj<$min) {
          $mojecislo=int(rand($maximum));
          foreach $cislo (@pole){
              $cislo == $mojecislo ?  $tmp = 1 : $tmp = $tmp;
              }
          if($tmp == 0){
              $generuj += 1;
              push(@pole,$mojecislo);
              }
          }
}
sub vypis {
        for ($i=0;$i<@pole;$i++) {
                        print "$pole[$i] ";
                            }
}

&generace;
&vypis;
print "\n";

[ivok]

Efektivni to asi moc neni... ale kratsi uz to neumim

#!/usr/bin/perl -w
srand;
my %tmp;
for (1..4) {
  $tmp{int(rand(20))}++ and redo;
}
print scalar (join ' ', keys %tmp), "\n";

[lazyboy]

Díky moc

[ivok]

Ten muj prigramek sice funguje, ale jenom, pokud chcete 4 cisla z 20 a nezalezi vam na jejich poradi. Pokud na poradi zalezi, tak treba takhle (neni to tak pekny, ale ...)

#!/usr/bin/perl -w
srand;
my @tmp;
while (scalar @tmp < 4) {
  (grep $tmp[0] == $_, @tmp = (int(rand(20)), @tmp)) - 1 and shift @tmp;
}
print scalar (join ' ', @tmp), "\n";

[unchallenger]

A nebo

#!/usr/bin/perl
srand;
my (%h, @l);
while (scalar @l < 4) {
  $j = int(rand(20)) + 1;
  if (!defined $h[$j]) {
    $h[$j] = 1;
    push @l, $j;
  }
}
$, = " ";
$\ = "\n";
print @l;

[ivok]

To je moc citelny, to umi napsat kazdej Navic je tam moc zavorek a "$" a ma to moc radku ...

[unchallenger]

Chtěl jsem původně to tělo cyklu napsat

$h[$j]=$l[$#l+1]=$j if $j=int(rand(20))+1 and !defined $h[$j];

ale rozhodl jsem se dneska pro čitelnost