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

19.1. 18:55 | Komunita

NHSbuntu (Joinup, prezentace) měla být z Ubuntu vycházející linuxová distribuce přizpůsobená pro potřeby britské Národní zdravotní služby (NHS). NHS se název nelíbil, nejednalo se o oficiální projekt NHS, a proto bylo NHSbuntu v září loňského roku přejmenováno na NHoS. Vývojáři NHoS tento týden oznámili, že NHS se nelíbí ani název NHoS a už nemají sílu na další přejmenování a pokračování v projektu. Dodávají, že několik jednání s vedením

… více »
Ladislav Hagara | Komentářů: 2
19.1. 18:44 | Pozvánky

Koncem ledna, 29. 1. 2018 od 17 do 20 hodin se v Akademii CZ.NIC uskuteční večer s Turrisem.

Co bude na programu?… více »
Miška | Komentářů: 3
19.1. 18:33 | Pozvánky

Na tri dni sa hlavné mesto Slovenska po tretíkrát zmení na miesto s najväčšou koncentráciou profesionálnych programátorov, systémových administrátorov, učiteľov informatiky aj technologických nadšencov. Hlavným lákadlom bude konferencia PyCon SK 2018, určená záujemcom o Python, jeden z najpopulárnejších programovacích jazykov na svete.

… více »
RicCo386 | Komentářů: 1
19.1. 18:22 | Pozvánky

Letošní ročník konference Prague PostgreSQL Developer Day se koná ve dnech 14. 2. a 15. 2. 2018. Zveřejněn byl program s přednáškami a školeními. Otevřena byla také registrace na konferenci.

TomasVondra | Komentářů: 0
19.1. 11:33 | Komunita

Společnost Canonical stojící za linuxovou distribucí Ubuntu oznámila dostupnost nástroje pro týmovou spolupráci Slack (Wikipedie) ve formátu snap. Instalovat jej lze ze Snapcraftu. Slack pro Linux je dostupný také ve formátu klasických balíčků pro Ubuntu a Fedoru.

Ladislav Hagara | Komentářů: 9
18.1. 17:33 | Nová verze

Po roce vývoje od vydání verze 2.0 a 6 000 změnách byla vydána nová stabilní verze 3.0 softwaru, který vytváří aplikační rozhraní umožňující chod aplikací pro Microsoft Windows také pod GNU/Linuxem, Wine (Wikipedie). Z novinek lze zdůraznit například podporu Direct3D 10 a 11. Podrobnosti v poznámkách k vydání.

Ladislav Hagara | Komentářů: 14
18.1. 13:44 | Zajímavý projekt

V říjnu loňského roku úspěšně skončila kampaň na podporu chytrého telefonu Librem 5, jenž by měl respektovat bezpečnost, svobodu a soukromí uživatelů. Společnost Purism informuje o aktuálním vývoji tohoto telefonu. Místo plánovaného SoC i.MX6 by měl být použit úspornější i.MX8.

Ladislav Hagara | Komentářů: 4
18.1. 12:33 | Zajímavý projekt

V květnu loňského roku měl na YouTube premiéru krátký animovaný film Agent 327: Operation Barbershop. Blender Animation Studio včera zveřejnilo alternativní konec tohoto filmu.

Ladislav Hagara | Komentářů: 0
18.1. 05:55 | Bezpečnostní upozornění

Společnost Oracle vydala čtvrtletní bezpečnostní aktualizaci svých softwarových produktů (CPU, Critical Patch Update). Opraveno bylo celkově 237 bezpečnostních chyb. V Oracle Java SE je například opraveno 21 bezpečnostních chyb. Vzdáleně zneužitelných bez autentizace je 18 z nich. V Oracle MySQL je opraveno 25 bezpečnostních chyb. Vzdáleně zneužitelných bez autentizace je 6 z nich.

Ladislav Hagara | Komentářů: 0
17.1. 20:55 | Komunita

Linux ve VirtualBoxu nebude potřebovat Přídavky pro hosta (Guest Additions). Budou součástí linuxového jádra. Ovladač vboxguest by se měl dostat do Linuxu 4.16. Ovladač vboxsf by měl následovat.

Ladislav Hagara | Komentářů: 27
Jak se vás potenciálně dotkne trend odstraňování analogového audio konektoru typu 3,5mm jack z „chytrých telefonů“?
 (7%)
 (1%)
 (1%)
 (1%)
 (77%)
 (13%)
Celkem 1349 hlasů
 Komentářů: 53, poslední 17.1. 16:55
    Rozcestník

    Dotaz: požírání matice

    10.9.2017 19:56 RM
    požírání matice
    Přečteno: 1404×
    Protože o víkendu u sousedů na "růtu" programátoři požírali (možná ještě požírají) matici - stylem od levého horního rohu spirálovitě do středu - a používali k tomu různé jazyky, které já neznam, chtěl bych se zeptat jak na to jít třeba v Perlu 6, který právě studuji? Ale klidně i jiné jazyky, pokud to bude mít rozumnou délku, případně nějaký ten vtip k tomu ;). Jako ukázku dávám svůj kód v Perlu 5.
    $a = [ [1, 3, 5, 7, 6],
           [2, 5, 8, 2, 5],
           [5, 7, 8, 1, 2],
           [4, 2, 3, 5, 6],
           [8, 6, 5, 4, 2] ];
    
    while(@{$a}) {
        push @list, @{shift $a};
        push @list, pop($a->[$j++])  while @{$a->[$j]}; $j--;
        push @list, reverse(@{pop $a});
        push @list, shift($a->[$j])  while $j>0 && @{$a->[--$j]};
    }
    print "@list";
    

    Řešení dotazu:


    Odpovědi

    wamba avatar 10.9.2017 20:46 wamba | skóre: 38 | blog: wamba
    Rozbalit Rozbalit vše Re: požírání matice
    Např. tvá verze pro Perl 6
    sub snake ($matrix is rw) {
        my @snake;
        while $matrix {
            @snake.push: |.shift with $matrix;                 #left
            @snake.push: |$_».pop with $matrix;                #down
            @snake.push: |.pop.reverse with $matrix;           #right
            @snake.push: |$_».shift.reverse with $matrix;      #up
        }
        @snake
    }
    
    Trochu vylepšená verze
    sub snake2 ($matrix is rw) {
        my @snake;
        my @take = |(
            { .shift },                 #left
            { .map: *.pop },            #down
            { .pop.reverse },           #right
            { .map( *.shift ).reverse } #up
        ) xx *;
        while $matrix {
            my &action = @take.shift;
            @snake.push: |$matrix.&action;
        }
        @snake
    }
    
    Verze s otočením:
    sub snake3 (@matrix is copy) {
        my @snake;
        while @matrix {
            @snake.push: |@matrix.shift;
            @matrix = reverse [Z,] |@matrix;
        }
        @snake
    }
    
    This would have been so hard to fix when you don't know that there is in fact an easy fix.
    11.9.2017 13:08 RM
    Rozbalit Rozbalit vše Re: požírání matice
    Díky, pěkná ukázka.
    11.9.2017 20:12 RM
    Rozbalit Rozbalit vše Re: požírání matice
    Takhle by to v Perlu 5 vypadalo s map místo while:
    while(@{$a}) {
         push @list, @{shift $a};
         push @list, map { pop $_ } @{$a};
         push @list, reverse(@{pop $a});
         push @list, reverse map { shift $_ } @{$a}
    }
    
    Vypadá to lépe, jen za cenu dalšího reverse().
    wamba avatar 11.9.2017 21:19 wamba | skóre: 38 | blog: wamba
    Rozbalit Rozbalit vše Re: požírání matice
    Ještě u té druhé verze je rozumné mít @take jako nepovinný parametr
    my @spiral = (
        { .shift },                  #right
        { .map: *.pop },             #down
        { .pop.reverse },            #left
        { .map( *.shift ).reverse }, #up
    );
    
    sub snake2 ( @matrix, :@take is copy = |@spiral xx * ) {
        my @snake;
        while @matrix[0] {
            my &action = @take.shift;
            @snake.push: |@matrix.&action;
            #say @matrix;
        }
        @snake;
    }
    
    Pak s tím lze dělat skopičiny jako opačná spirála začínající v pravém horním rohu:
    my @reverse-spiral = |@spiral.rotate.map( { &reverse o $_ } ).reverse xx *;
    say $matrix.&snake2(take => @reverse-spiral);
    
    nebo třeba takovýto had:
    my @right-left-down-up = |(
        { .shift },                   #right
        { .shift.reverse },           #left
        { .map: *.shift   },          #down
        { .map( *.shift ).reverse  }, #up
    ) xx *;                           #repeat
    
    say $matrix.&snake2(take => @right-left-down-up);
    
    This would have been so hard to fix when you don't know that there is in fact an easy fix.
    11.9.2017 23:45 RM
    Rozbalit Rozbalit vše Re: požírání matice
    Díky, těch informací je zatím poskromnu a z dokumentace Perlu 6 se to těžko dedukuje. Myslím, že princip, jak chytře pracovat s vícerozměrným polem, je mi už celkem jasnej. Dál už se tím nějak prokoušu.
    12.9.2017 09:12 RM
    Rozbalit Rozbalit vše Re: požírání matice
    Co znamená to o za &reverse? Jako operátor to nemůžu najít.
    wamba avatar 12.9.2017 09:31 wamba | skóre: 38 | blog: wamba
    Rozbalit Rozbalit vše Re: požírání matice
    Je to skládaní funkcí viz role Callable. Máš pravdu v dokumentaci se to blbě hledá.
    This would have been so hard to fix when you don't know that there is in fact an easy fix.
    Řešení 1× (Marek Stopka)
    10.9.2017 20:48 NN
    Rozbalit Rozbalit vše Re: požírání matice
    Poradna neslouzi k vypracovavani domacich ukolu. Kdyz se to resilo na rootu proc lezes sem?
    10.9.2017 21:03 RM
    Rozbalit Rozbalit vše Re: požírání matice
    Protože vím, že o Perl6 se tu už někdo zajímá a mám tak naději, že zde dostanu co hledám ;) První větu nechápu.
    14.9.2017 13:54 kolemjdouci
    Rozbalit Rozbalit vše Re: požírání matice
    Nezivim se jako programator jen obcas neco napisu, ale kdyz vidm takovy zhovadili kod dere se mi na mysl otazka: "Co vas, proboha, lidi nuti pouzivat takove 'zhovadile' zapisy?" Neberte to jako urazku spis jde jen o zamysleni a vas nazor na vec. Netvrdte ze jde o to usetrit 10radku kodu, ktery by zase vedl k lepsi prehlednosti.
    14.9.2017 13:56 NN
    Rozbalit Rozbalit vše Re: požírání matice
    To je proste Perl, takto to vypada i normalne ;) ..
    14.9.2017 14:12 kolemjdouci
    Rozbalit Rozbalit vše Re: požírání matice
    Koukl jsem na rootu na to vlakno a tam je podobny zapis i v Pythonu. No nic
    14.9.2017 19:14 RM
    Rozbalit Rozbalit vše Re: požírání matice
    Tak jsou to skriptovací jazyky, tak bych očekával používání nějakých větších dílčích celků a ne jen elementární instrukce cyklu a pole s indexem. V dotazu mi šlo o nějakou představu, kam se to posunulo u Perlu6, který nabízí daleko větší abstrakci než Perl5, tam bylo možné oproti běžnému imperativnímu programování jen trochu kouzlit se seznamy (což jsem v ukázce trochu využil;). Uvedený příklad s hadem je samozřejmě triviální, jen posloužil jako příklad.
    14.9.2017 19:39 RM
    Rozbalit Rozbalit vše Re: požírání matice
    Možná by vás mohl přesvědčit složitější příklad, také převzatý z z rootu, který jsem si jen mírně upravil podle svého přání:
    my @a = [ [  (0,   0), (100,  0), (100,  44),  (62,  44),   (0,  38), (1, 3) ],
              [ (94, 100),  (28, 50),  (62,  44), (100,  44), (100, 100) ],
              [  (0,  44),  (28, 50),  (94, 100),   (0, 100), (3, 1)     ],
              [ (28,  50),   (0, 44),   (0,  38),  (62,  44)             ]  ]	;
    
    
    for 1..+@a -> $lineo {
        my $b=@a.shift;
    
        my $aflat=@a.List.flat.map({.Str});
        my $bflat=$b.flat.map({.Str}).cache;
        my $intersection = $aflat  (&)  $bflat;
    
        say "$lineo: ", $intersection{$bflat.List}.pairs.Set.keys.sort;
    
        @a.push: $b
    }
    
    Vůbec není nutné uvažovat o nějakém procházení pole a splněné podmínce, ale prostě se vytvoří vždy dvě množiny (jeden řádek a zbytek) na kterých se udělá průnik, a tím se zjistí, jaké dvojice se vyskytují na dalších řádcích. -- Možná by to šlo provést lépe, teprve začínám ;).
    15.9.2017 16:45 gll
    Rozbalit Rozbalit vše Re: požírání matice
    jsem autorem toho posledního kódu na rootu. Tohle by šlo v Perlu6 řešit mnohem elegantněji pomocí hyperoperátoru. Z hlavy to nedám a teď nemám možnost to zkoušet. Jsou tu větší experti na Perl 6. Rád bych viděl jejich řešení.
    15.9.2017 17:01 gll
    Rozbalit Rozbalit vše Re: požírání matice
    **elegantněji než to mé řešení v Pythonu.
    15.9.2017 20:24 RM
    Rozbalit Rozbalit vše Re: požírání matice
    Také budu rád, když někdo ukáže lepší řešení. Já jsem si zatím jenom hrál s "hašovitými" typy a tohle mne napadlo.
    wamba avatar 15.9.2017 23:39 wamba | skóre: 38 | blog: wamba
    Rozbalit Rozbalit vše Re: požírání matice
    Tak přikládám moje řešení v Perlu 6
    my @a =  [
        [(0, 0), (100, 0), (100, 44), (62, 44), (0, 38)],
        [(94, 100), (28, 50), (62, 44), (100, 44), (100, 100)],
        [(0, 44), (28, 50), (94, 100), (0, 100)],
        [(28, 50), (0, 44), (0, 38), (62, 44)]
    ];
    
    my @result;
    
    for ^@a.elems .combinations(2) -> ($i, $j) {
        next unless @a[$i].any eqv @a[$j].any;
    
        @result[$i].push: $j;
        @result[$j].push: $i;
    }
    
    @result.pairs».say;
    
    Jestli si myslel, že by šlo použít např. X∩, tak jsem narazil na celkem dost problémů.

    Nejvážnější je, že se to chová poněkud divně:
    dd (set(1),set(2)) X∩ set(2),
    vypíše:
    (set(set(1),set(2)), set(set(2))).Seq
    Namísto @a[$i].any eqv @a[$j].any; bych mohl použít [or] @a[$i].list Xeqv @a[$j].list;, kdybych moc chtěl metaoperátory, ale takhle se mi to zdá přímější. Navíc ta část s Junction by se měla vyhodnocovat paralelně.
    This would have been so hard to fix when you don't know that there is in fact an easy fix.
    16.9.2017 11:47 RM
    Rozbalit Rozbalit vše Re: požírání matice
    Jenom přemýšlím, jak moc to splňuje požadavek absence "naivního prohledávání v cyklu", když řádky (seznamy) se stejně porovnávají každý s každým :). Asi jsem to zadání bral moc doslovně.
    16.9.2017 22:34 RM
    Rozbalit Rozbalit vše Re: požírání matice
    Chvíli jsem zkoumal metaoperátory a spíš mi přijde, že to "divné" chování je vlastnost. Ten průnik nad "hešovitým" typem se chová tak, jakoby se jednalo o hash se stejným klíčem, proto set(set(2)) a ne set(set(2), set(2)) -- dojde ke sloučení, jakoby to byly stejné klíče. Ale možná to blbě chápu.
    20.9.2017 11:18 zero
    Rozbalit Rozbalit vše Re: požírání matice
    Čistě pro zajímavost, v jazyce J by šlo funkci (spiral) napsat třeba takto:
    spiral =: 3 : 0
    M =. y
    r =. ''
    while. #M > 0 do.
      r =. r, {.M
      M =. }.M
      M =. |. |: M
    end.
    r
    )
    
    Určitě to není nejkratší zápis, zato je snadno pochopitelný :)

    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.