abclinuxu.cz AbcLinuxu.cz itbiz.cz ITBiz.cz HDmag.cz HDmag.cz abcprace.cz AbcPráce.cz
Inzerujte na AbcPráce.cz od 950 Kč
Rozšířené hledání
×

    dnes 18:44 | IT novinky

    Google představil Gemini, svůj největší a nejschopnější model umělé inteligence.

    Ladislav Hagara | Komentářů: 0
    dnes 16:44 | Komunita

    openSUSE komunita vybírá nová loga. Jedním z cílů je odlišit se od SUSE. Aktuálně probíhá hlasování o logu openSUSE a čtyř distribucí Tumbleweed, Leap, Slowroll a Kalpa.

    Ladislav Hagara | Komentářů: 3
    dnes 13:22 | Nová verze

    Raspberry Pi OS, oficiální operační systém pro Raspberry Pi, byl vydán v nové verzi 2023-12-05. Přehled novinek v příspěvku na blogu a poznámkách k vydání. Nově jej lze používat také s tmavým tématem.

    Ladislav Hagara | Komentářů: 1
    dnes 08:00 | Humor

    Dnes je to 10 let, co byla vytvořena decentralizovaná kryptoměna Dogecoin. Autoři Billy Markus a Jackson Palmer ji původně zamýšleli jako vtip. Znakem kryptoměny je pes Shiba-Inu známý z internetových memů.

    JZD | Komentářů: 11
    dnes 07:00 | Nová verze

    Google Chrome 120 byl prohlášen za stabilní. Nejnovější stabilní verze 120.0.6099.62 přináší řadu oprav a vylepšení (YouTube). Opraveno bylo 10 bezpečnostních chyb. Vylepšeny byly také nástroje pro vývojáře (YouTube).

    Ladislav Hagara | Komentářů: 0
    včera 20:55 | Nová verze

    Byla vydána nová verze 2023.4 linuxové distribuce navržené pro digitální forenzní analýzu a penetrační testování Kali Linux (Wikipedie). Přehled novinek se seznamem nových nástrojů v oficiálním oznámení. Vypíchnout lze podporu Cloud ARM64, Vagrant Hyper-V a Raspberry Pi 5.

    Ladislav Hagara | Komentářů: 0
    včera 17:00 | IT novinky

    Společnosti IBM, Meta a dalších vice než 50 zakládajících členů (bez Microsoftu a OpenAI) vytvořili mezinárodní alianci AI Alliance pro spolupráci na vývoji a rozvoji otevřené, bezpečné a odpovědné umělé inteligence.

    Ladislav Hagara | Komentářů: 16
    včera 14:44 | IT novinky

    Služba pro hlídání uniklých hesel Have I Been Pwned oslavila 10. výročí. Troy Hunt ji spustil 4. prosince 2013 (Twitter).

    Ladislav Hagara | Komentářů: 4
    včera 06:00 | Humor

    Programovací jazyk HTML.

    Ladislav Hagara | Komentářů: 5
    4.12. 23:00 | Upozornění

    Podpora TORu v Debianu 11 Bullseye a 10 Buster byla ukončena. Doporučuje se přechod na Debian 12 Bookworm.

    Ladislav Hagara | Komentářů: 0
     (39%)
     (13%)
     (49%)
    Celkem 72 hlasů
     Komentářů: 1, poslední 4.12. 22:13
    Rozcestník

    Dotaz: Perl a generator nahodnych cis

    23.6.2003 11:58 lazyboy | skóre: 13
    Perl a generator nahodnych cis
    Přečteno: 76×
    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

    23.6.2003 13:52 Jáchym Čepický | skóre: 29 | blog: U_Jachyma
    Rozbalit Rozbalit vše Perl a generator nahodnych cis
    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";
    
    23.6.2003 14:40 ivok
    Rozbalit Rozbalit vše Perl a generator nahodnych cis
    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";
    
    23.6.2003 15:17 lazyboy | skóre: 13
    Rozbalit Rozbalit vše Perl a generator nahodnych cis
    Díky moc :-)
    24.6.2003 08:09 ivok
    Rozbalit Rozbalit vše Perl a generator nahodnych cis
    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";
    
    24.6.2003 10:37 unchallenger | skóre: 69 | blog: unchallenger
    Rozbalit Rozbalit vše Perl a generator nahodnych cis
    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;
    
    24.6.2003 11:26 ivok
    Rozbalit Rozbalit vše Perl a generator nahodnych cis
    To je moc citelny, to umi napsat kazdej :-) Navic je tam moc zavorek a "$" a ma to moc radku ... :-)
    24.6.2003 11:43 unchallenger | skóre: 69 | blog: unchallenger
    Rozbalit Rozbalit vše Perl a generator nahodnych cis
    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 ;-)

    Založit nové vláknoNahoru

    Tiskni Sdílej: Linkuj Jaggni to Vybrali.sme.sk Google Del.icio.us Facebook

    ISSN 1214-1267   www.czech-server.cz
    © 1999-2015 Nitemedia s. r. o. Všechna práva vyhrazena.