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í
×

včera 23:55 | Komunita

Ubuntu 17.10 (Artful Aardvark) bude ve výchozím stavu zobrazovat Dok (Launcher). Jedná se o rozšíření GNOME Shellu Ubuntu Dock. To bylo forknuto z rozšíření Dash to Dock. Ukázka na YouTube [reddit].

Ladislav Hagara | Komentářů: 0
17.8. 15:33 | Nová verze

Byla vydána verze 17.08.0 KDE Aplikací (KDE Applications). Přehled novinek v kompletním seznamu změn a na stránce s dalšími informacemi. Aplikace kmag, kmousetool, kgoldrunner, kigo, konquest, kreversi, ksnakeduel, kspaceduel, ksudoku, kubrick, lskat a umbrello byly portovány na KDE Frameworks 5.

Ladislav Hagara | Komentářů: 0
17.8. 15:11 | Nová verze

Simon Long představil na blogu Raspberry Pi novou verzi 2017-08-16 linuxové distribuce Raspbian určené především pro jednodeskové miniaturní počítače Raspberry Pi. Společně s Raspbianem byl aktualizován také instalační nástroj NOOBS (New Out Of the Box Software). Nejnovější Raspbian je založen na Debianu 9 Stretch. Přehled novinek v poznámkách k vydání. Řešena je také bezpečnostní chyba Broadpwn (CVE-2017-9417).

Ladislav Hagara | Komentářů: 1
17.8. 12:33 | Nová verze

Byla vydána verze 3.2.0 programu pro skicování, malování a úpravu obrázků Krita. Přehled novinek v poznámkách k vydání a na YouTube.

Ladislav Hagara | Komentářů: 0
17.8. 11:44 | IT novinky

Minulý týden na šampionátu The International 2017 byl představen bot, který poráží profesionální hráče počítačové hry Dota 2. V nejnovějším příspěvku na blogu se organizace OpenAI o projektu více rozepsala a zveřejnila videozáznamy několika soubojů.

Ladislav Hagara | Komentářů: 7
16.8. 17:11 | Komunita

Byly zveřejněny videozáznamy přednášek z Fedora 26 Release Party konané 10. srpna v Praze.

Ladislav Hagara | Komentářů: 0
16.8. 15:33 | Komunita

Přesně před čtyřiadvaceti lety, 16. srpna 1993, oznámil Ian Murdock vydání "Debian Linux Release".

Ladislav Hagara | Komentářů: 8
16.8. 06:00 | Bezpečnostní upozornění

Ve virtualizačním softwaru Xen bylo nalezeno a opraveno 5 bezpečnostních chyb XSA-226 až XSA-230. Nejzávažnější z nich XSA-227 (CVE-2017-12137) umožňuje eskalaci privilegií a ovládnutí celého systému, tj. správce hostovaného systému se může stát správcem hostitelského systému.

Ladislav Hagara | Komentářů: 1
15.8. 22:00 | Zajímavý projekt

V roce 2013 proběhla na Kickstarteru úspěšná kampaň na podporu otevřeného Dobře temperovaného klavíru (Well-Tempered Clavier). Stejný tým s Kimiko Išizaka spustil před týdnem na Kickstarteru kampaň Libre Art of the Fugue na podporu svobodného Umění fugy.

Ladislav Hagara | Komentářů: 2
15.8. 13:55 | Pozvánky

Spolek OpenAlt zve příznivce otevřených technologií a otevřeného přístupu na 143. brněnský sraz, který proběhne v pátek 18. srpna od 18:00 hodin ve sportovním areálu a restauraci BeachPub Sokolák u Brněnské přehrady aneb v hantecu u Prýglu.

Ladislav Hagara | Komentářů: 0
Těžíte nějakou kryptoměnu?
 (4%)
 (2%)
 (17%)
 (76%)
Celkem 354 hlasů
 Komentářů: 21, poslední 13.8. 09:57
    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: 50×
    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.