abclinuxu.cz AbcLinuxu.cz itbiz.cz ITBiz.cz HDmag.cz HDmag.cz abcprace.cz AbcPráce.cz
AbcLinuxu hledá autory!
Inzerujte na AbcPráce.cz od 950 Kč
Rozšířené hledání
×
    dnes 19:22 | Komunita

    Vývojáři openSUSE Tumbleweed oznámili, že u nových instalací se ve výchozím stavu přechází z AppArmor na SELinux. Uživatelé, kteří chtějí zůstat na AppArmor si mohou AppArmor vybrat v instalátoru.

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

    Hector "marcan" Martin skončil jako vedoucí projektu Asahi Linux aneb Linux na Apple Siliconu. Projekt ale pokračuje dál.

    Ladislav Hagara | Komentářů: 6
    dnes 16:33 | Nová verze

    PostgreSQL byl vydán ve verzích 17.3, 16.7, 15.11, 14.16 a 13.19. Řešena je zranitelnost CVE-2025-1094 s CVSS 8.1 a více než 70 chyb.

    Ladislav Hagara | Komentářů: 0
    dnes 14:22 | Humor

    Dnes je Světový den rádia. Použili jste někdy GNU Radio?

    Ladislav Hagara | Komentářů: 3
    dnes 12:33 | IT novinky

    Před 33 lety, ve čtvrtek 13. února 1992, se tehdejší Česká a Slovenská Federativní Republika oficiálně (a slavnostně) připojila k Internetu.

    Ladislav Hagara | Komentářů: 1
    včera 19:44 | Nová verze

    Byla vydána nová verze 9.10 z Debianu vycházející linuxové distribuce DietPi pro (nejenom) jednodeskové počítače. Přehled novinek v poznámkách k vydání.

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

    Český LibreOffice tým vydává překlad příručky LibreOffice Math 24.8. Math je modul editoru vzorců v kancelářském balíku LibreOffice a poskytuje možnosti rozvržení pro zobrazení matematických, chemických, elektrických nebo vědeckých vzorců ve standardní písemné notaci. Příručka je ke stažení na stránce dokumentace.

    ZCR | Komentářů: 0
    včera 05:11 | Zajímavý článek

    Společnost Backblaze zveřejnila statistiky spolehlivosti pevných disků používaných ve svých datových centrech za rok 2024. Ke konci roku 2024 vlastnila 305 180 pevných disků. Průměrná AFR (Annualized Failure Rate), tj. pravděpodobnost, že disk během roku selže, byla 1,57 %. V roce 2023 to bylo 1,70 %. V roce 2022 to bylo 1,37 %.

    Ladislav Hagara | Komentářů: 16
    včera 04:22 | Bezpečnostní upozornění

    Intel vydal 34 upozornění na bezpečnostní chyby ve svých produktech. Současně vydal verzi 20250211 mikrokódů pro své procesory řešící 5 bezpečnostních chyb.

    Ladislav Hagara | Komentářů: 0
    včera 03:11 | Nová verze

    Byla vydána nová verze 1.24 programovacího jazyka Go (Wikipedie). Přehled novinek v poznámkách k vydání.

    Ladislav Hagara | Komentářů: 0
    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: 86×
    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.