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 02:48 | Nová verze

Po půl roce od vydání verze 9.0 (zprávička) byla vydána verze 10.0 zvukového serveru PulseAudio. Přehled novinek v poznámkách k vydání.

Ladislav Hagara | Komentářů: 8
dnes 00:33 | Komunita Ladislav Hagara | Komentářů: 0
včera 17:30 | Zajímavý článek

Mozilla.cz informuje, že webový prohlížeč Firefox bude od verze 53 obsahovat integrovaný prohlížeč dat ve formátu JSON. Firefox kromě strukturovaného prohlížení nabídne také možnost filtrace a uložení na disk. Dle plánu by měl Firefox 53 vyjít 18. 4. 2017.

Ladislav Hagara | Komentářů: 1
včera 11:00 | Komunita

Členové a příznivci spolku OpenAlt se pravidelně schází v Praze a Brně. Fotky z pražských srazů za uplynulý rok si můžete prohlédnout na stránkách spolku. Příští sraz se koná už zítra 19. ledna – tentokrát je tématem ergonomie ovládání počítače – tzn. klávesnice, myši a další zařízení. Také budete mít příležitost si prohlédnout pražský hackerspace Brmlab.

xkucf03 | Komentářů: 0
17.1. 21:55 | Komunita

Nadace pro svobodný software (FSF) oznámila aktualizaci seznamu prioritních oblastí (changelog), na které by se měli vývojáři a příznivci svobodného softwaru zaměřit. Jsou to například svobodný operační systém pro chytré telefony, hlasová a video komunikace nebo softwarový inteligentní osobní asistent.

Ladislav Hagara | Komentářů: 15
17.1. 16:44 | Nová verze

Byla vydána verze 2.0.0 knihovny pro vykreslování grafů v programovacím jazyce Python Matplotlib (Wikipedie, GitHub). Přehled novinek a galerie grafů na stránkách projektu.

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

V australském Hobartu probíhá tento týden konference linux.conf.au 2017. Na programu je celá řada zajímavých přednášek. Sledovat je lze online.

Ladislav Hagara | Komentářů: 0
17.1. 10:20 | Zajímavý článek

Pavel Tišnovský se v dvoudílném článku na MojeFedora.cz věnuje bitmapovým (rastrovým) grafickým editorům ve Fedoře. V prvním dílu se věnuje editorům MyPaint, MtPaint, Pinta, XPaint, Krita a GIMP. V pokračování pak editorům GNU Paint (gpaint), GrafX2, KolourPaint, KIconEdit a Tux Paint.

Ladislav Hagara | Komentářů: 1
16.1. 17:11 | Komunita

Byl proveden bezpečnostní audit svobodného IMAP a POP3 serveru Dovecot (Wikipedie). Audit byl zaplacen z programu Mozilla Secure Open Source a provedla jej společnost Cure53. Společnost Cure53 byla velice spokojena s kvalitou zdrojových kódu. V závěrečné zprávě (pdf) jsou zmíněny pouze 3 drobné a v upstreamu již opravené bezpečnostní chyby.

Ladislav Hagara | Komentářů: 0
16.1. 15:30 | IT novinky

Nadace Raspberry Pi představila na svém blogu Raspberry Pi Compute Module 3 (CM3 a CM3L), tj. zmenšené Raspberry Pi vhodné nejenom pro průmyslové využití. Jedná se o nástupce Raspberry Pi Compute Module (CM1) představeného v dubnu 2014. Nový CM3 vychází z Raspberry Pi 3 a má tedy dvakrát více paměti a desetkrát větší výkon než CM1. Verze CM3L (Lite) je dodávána bez 4 GB eMMC flash paměti. Uživatel si může připojit svou vlastní. Představena byla

… více »
Ladislav Hagara | Komentářů: 2
Jak se stavíte k trendu ztenčování přenosných zařízení (smartphony, notebooky)?
 (10%)
 (3%)
 (74%)
 (3%)
 (10%)
Celkem 319 hlasů
 Komentářů: 24, poslední 17.1. 10:14
    Rozcestník
    Reklama

    Dotaz: Perl a generator nahodnych cis

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