Média, marketing, technologie, byznys. Odebírejte na email.

www.knesl.com 26. 11. 2014, 14:11

Extensions pro Chrome, která používám

Nepoužívám moc rozšíření pro prohlížeče. Většinou mi stačí
základní možnosti, které prohlížeče nabízí.

Několik rozšíření si ale podle mě instalaci zaslouží.

AdBlock –
bez AdBlocku je internet úplně daleko horší místo. Tento plugin asi
nemusím představovat.

Ghostery –
chcete vědět, kdo všechno dostává informace o tom, že jste navštívili
nějaký web a zároveň chcete tomuto zabránit? Je tu rozšíření Ghostery,
které detekuje a blokuje desítky trackovacích služeb.

HTTPS
Everywhere
 – plugin, který zajistí, že na definované
stránky budete přistupovat vždy přes HTTPS. Zatím tam moc webů není a
musíte si řešit vše ručně.

FlashBlock –
zastaví automatické spouštění Fleshe a nutí vás ho vždy aktivovat.

YSlow –
jediný plugin, který nesouvisí s bezpečím. Pokud zvyšuju výkonnost, je
první místo, kam koukám na problémy na frontendu.

Jaká rozšíření používáte vy?

<!–

–>

Zobrazit   Sdílet
CzechCrunch 26. 11. 2014, 14:01

Další seriál o startupech se blíží

sfSilicon Valley bylo ve filmech a seriálech ještě před pár lety docela neprozkoumané. V tomhle roce se ovšem pod produkcí HBO vyklubal seriál Silicon Valley …

Zobrazit   Sdílet
MediaGuru 26. 11. 2014, 13:40

Ulice půjde až do 26.12., Kriminálka a Vinaři skončí stejně

Některé komerční seriály zmizí z vysílání už na začátku prosince, televize nasadí předvánoční schéma. celý článek »

Zobrazit   Sdílet
Médiář.cz 26. 11. 2014, 12:55

Pro marketing mějte redakční plán, radí Rejlek z Wundermanu

Marketér Vladimír Rejlek na konferenci Internet Jungle popsal, jak agentura tvoří a šíří propagační obsah Fordu na sociálních sítích.

Zobrazit   Sdílet
Médiář.cz 26. 11. 2014, 12:40

Content marketing s dobrou strategií dokáže překonat televizní kampaň

Pojem strategie se nesl celým blokem o marketingu obsahem na letošní konferenci Internet Jungle. Podívejme se na klíčové trendy a základní přístupy, které lze v content marketingu vidět ve světě a jež je tedy možné brzy očekávat také v Česku.

Zobrazit   Sdílet
CzechCrunch 26. 11. 2014, 12:29

Hodnota Uberu by brzy mohla dosáhnout 40 miliard dolarů!

uber-hZhruba před 2 týdny jsme vás informovali o další monstrózní investici ve výši 1 miliardy dolarů putující do Uberu, která by tento americký taxi …

Zobrazit   Sdílet
oWWW 26. 11. 2014, 12:01

Provozovatelé affilu by se neměli stávat zároveň svým partnerem

Provozuji několik webů, které vydělávají na affiliate programech. Před pár měsíci jsem spustil jeden nový, který se stal ze dne na den opravdu velmi úspěšným a začal vydělávat a stále vydělává velmi slušné peníze a to jak mě, tak provozovateli toho portálu, který propaguji. Jenže to není obyčejný web s bannery. Jdu na to stejně [...]

Zobrazit   Sdílet
Objevit.cz: IT magazín, zprávy a novinky ze světa IT 26. 11. 2014, 11:50

Už 6 let nás sleduje troský kůn Regin

V počítačích po celém světě je nainstalovaný trojský kůň Regin, a to tak, že si ho vůbec nevšimnete. Odborníci ze společnosti Symantec ho objevili až nyní.. Vzhledem k povaze viru se Symantec domnívá, že Regin pravděpodobně vyvinul nějaký stát k průmyslové špionáži.

Zobrazit   Sdílet
Médiář.cz 26. 11. 2014, 11:39

Mobilní vývojáře Slevomatu vede Bilka

Přední tuzemský slevový server ohlásil dvě personální novinky.

Zobrazit   Sdílet
MediaGuru 26. 11. 2014, 11:31

Návštěvnost internetu z mobilů překročila tři miliony

Návštěvnost internetu z mobilů rychle roste, v říjnu byla meziročně vyšší o milion uživatelů. celý článek »

Zobrazit   Sdílet
Fandorovy vyprávěnky 26. 11. 2014, 08:08

Real estate update

Už dlouho jsem nepsal nic o svém real estate “podnikání”, vlastně je to už dva roky od poslední vyprávěnky. Nic vyloženě zásadního se nestalo, ale pár postřehů mám. Letos je to už přes šest let, co jsem se pustil do první realitní investice. Vše šlape poměrně dobře, obsazenost je solidní, nyní mám neobsazenou pouze jednu […]

Zobrazit   Sdílet
MediaGuru 26. 11. 2014, 07:40

Televize Šlágr chce spustit i dětský kanál

Vysílat by měl na sdílené frekvenci společně s kanálem Country No. 1. celý článek »

Zobrazit   Sdílet
Objevit.cz: IT magazín, zprávy a novinky ze světa IT 26. 11. 2014, 07:23

Goat MMO Simulator: Ta nejšílenější hra za poslední dobu

Goat MMO Simulator je nejnovějším zdarma stažitelným přídavkem ke známé hře Goat Simulator. A stejně jako minulé aktualizace, i nyní jsme se dočkali šílenosti. Už jenom z důvodu, že můžete ovládat mikrovlnku, co má lidské nohy.

Zobrazit   Sdílet
Objevit.cz: IT magazín, zprávy a novinky ze světa IT 26. 11. 2014, 07:19

Když se rozhodnete blogovat: Tumblr nebo WordPress?

Přemýšleli jste o tom, že byste si začali psát vlastní blog? Nebo už jste si dokonce jisti, jen nevíte, jak začít? Ať tak či tak, určitě jste již slyšeli o Tumlbru a WordPressu. Možná jste dokonce uvažovali nad tím, jakou platformu si pro blogování vybrat a přemýšleli, jaký je mezi nimi rozdíl. Abychom to uvedli na pravou míru, rozdílů je mezi nimi skutečně hodně. Vlastně jsou úplně odlišné. Spojuje je ovšem to, že jsou obě využívané k blogování.

Zobrazit   Sdílet
MladýPodnikatel.cz 26. 11. 2014, 07:00

Petr Bechyně: Práce na kvalitním webu začíná daleko před grafikou a nikdy nekončí

Petr Bechyně svým klientům pomáhá s přípravou zadání a následným výběrem vhodných dodavatelů pro tvorbu webových stránek. Dokonce spustil.. přejít na článek

Zobrazit   Sdílet
Dlouhý chvost 26. 11. 2014, 06:30

Report z třetího MeasureBowlingu v Praze

Ve čtvrtek 20. listopadu 2014 jsem organizoval neformální setkání
MeasureBowling, které má za cíl budovat evropskou komunitu okolo
webové analytiky (s heslem „Fun for the Digital Analytics Community“).
Akce se konala najednou ve 23 evropských městech od Helsinek až po Madrid.
Jeden bod scházel nám … Číst
dál 

Zobrazit   Sdílet
Objevit.cz: IT magazín, zprávy a novinky ze světa IT 26. 11. 2014, 03:48

Twitter: Vyhledávat už můžete všechny tweety

Twitter minulý týden představil opravdu průlomovou novinku. Dalo by se říct, že se plně otevřel veřejnosti. Zatímco dřív jste mohli vyhledávat tweety pouze podle hashtagů, dnes už dohledáte i ty, ve kterých žádný hashtag není. Ano. Můžete se podívat úplně na každý tweet, který byl kdy na Twitteru zveřejněn.

Zobrazit   Sdílet
Objevit.cz: IT magazín, zprávy a novinky ze světa IT 26. 11. 2014, 03:33

PŘEDSTAVUJEME: Authy – Aplikace přidá dvoukrokové ověření ke všem vašim účtům

Přiznejme si to. Často nepoužíváme zrovna dvakrát bezpečná hesla. Navíc používáme stejná k několika přihlašovacím účtům, že? Jenže takové zabezpečení nás potom vlastně klame. Mylně se domníváme, že jsme chráněni. Ale nejsme. Zamyslete se třeba jen nad tím, kde všude jsou vaše hesla uložena. Jsou v databázích různých stránek, v paměti počítače, v prohlížeči, …

Zobrazit   Sdílet
Médiář.cz 26. 11. 2014, 00:00

středa 26. 11.

Svaz FITES pořádá v Era světě debatu o dramatické tvorbě České televize.

Zobrazit   Sdílet
Objevit.cz: IT magazín, zprávy a novinky ze světa IT 25. 11. 2014, 23:08

Tohle dětem nekupujte: 10 nejvíc nebezpečných hraček všech dob

Miliony a miliony hraček jsou každý rok stažené z prodejních pultů. Některé se rozpadnou na malé části, některé obsahují nebezpečné materiály a barviva. Takový seznam nebezpečných hraček se vyplatí sledovat. Není totiž výjimkou, že díky nim děti umírají. A jak by vypadal výčet těch nejhorších hraček, které se nikdy neměly objevit v prodeji?

Zobrazit   Sdílet
404M.COM 25. 11. 2014, 19:51

EAT24 dali košem Facebooku a vyplatilo se jim to

EAT24 je služba v USA na dovoz jídla z restaurací domů. Mají vlastní aplikaci do mobilních zařízení, která je celkem oblíbená. Facebook využívali zvláště na propagaci různých slev, recenzí restaurací, fotek atd. Prostě klasický…

Zobrazit   Sdílet
Objevit.cz: IT magazín, zprávy a novinky ze světa IT 25. 11. 2014, 19:27

VIDEO: Miss VŠE alias Bitch VŠE – casting do pornofilmu?

Soutěží krásy probíhá nespočet. Od klasické České Miss, přes Miss Aerobik až k Miss Hasičce. Ženy se v nich předvádí často nejen tím, jak vypadají, ale i různými dovednostmi. Jenže v některých soutěžích je to vyhnané až do extrémů. Dokonalým příkladem extrému je soutěž Miss VŠE.

Zobrazit   Sdílet
MediaGuru 25. 11. 2014, 15:53

Mafra ruší agenturní provizi pro tištěná média

Po zrušení provize v online médiích se Mafra rozhodla ustoupit i od agenturní provize v tisku. celý článek »

Zobrazit   Sdílet
MediaGuru 25. 11. 2014, 15:49

Staropramen představuje nový koncept Naše hospoda

S novým gastronomickým konceptem míří smíchovský pivovar především do regionů. celý článek »

Zobrazit   Sdílet
MediaGuru 25. 11. 2014, 15:48

ČT vrátí na obrazovky pořad Zpívá celá rodina

Česká televize začne v lednu natáčet novodobou sérii první hudební tuzemské reality show. celý článek »

Zobrazit   Sdílet
MediaGuru 25. 11. 2014, 15:35

Rohlik.cz: Snažíme se vedle produktů nabízet i zážitky

Chceme k produktům dodávat také jejich příběhy, říká Marek Sacha, CEO služby Rohlik.cz. celý článek »

Zobrazit   Sdílet
Objevit.cz: IT magazín, zprávy a novinky ze světa IT 25. 11. 2014, 15:25

Tisková zpráva: Herní set klávesnice s myší GAMDIAS ARES

Společnost GAMDIAS uvádí na trh nový herní set klávesnice s myší nesoucí jméno boha války – GAMDIAS ARES. Nový herní set ocení díky pokročilým funkcím a vlastnostem hráči všech úrovní….

Zobrazit   Sdílet
Objevit.cz: IT magazín, zprávy a novinky ze světa IT 25. 11. 2014, 15:24

Tisková zpráva: Konica Minolta zjednodušuje tisk z mobilních zařízení

Nová služba pro vzdálený tisk AirPrint bude standardní výbavou celého portfolia kancelářských zařízení Konica Minolta Inovativní technologie je kompatibilní s přístroji značky Apple Podobné řešení připravuje Konica Minolta také pro…

Zobrazit   Sdílet
Objevit.cz: IT magazín, zprávy a novinky ze světa IT 25. 11. 2014, 15:23

Tisková zpráva: Transcend představuje řadu externích disků StoreJet určenou pro uživatele počítačů Apple

TRANSCEND oznamuje rozšíření portfolia produktů určených k práci s počítači Apple o tři nové modely externích disků: disk s SSD SJM500 a 2,5“ pevné disky SJM100 a SJM300. Díky Plug…

Zobrazit   Sdílet
Objevit.cz: IT magazín, zprávy a novinky ze světa IT 25. 11. 2014, 15:23

Tisková zpráva: Genius PowerBank ECO-u1027 za rozumnou cenu

Společnost Genius uvádí na trh novou řadu záložních baterií Genius PowerBank ECO-u1027 pro mobilní zařízení. Nová řada se vyznačuje především kapacitou baterie, elegantním designem a příznivou cenou. Powerbanky jsou čím…

Zobrazit   Sdílet
Médiář.cz 25. 11. 2014, 15:15

„YouTube je inkubátor televizní zábavy“

“Mladé tváře oblíbené na videoserverech za sebou táhnou organicky vybudované publikum z webu ke klasické obrazovce,” popisují Tomáš Gavlas a David Růžička, spolumajitelé nové agentury Get Boost, jeden z důvodů, proč se rozhodli zastupovat české youtubery a prodávat jejich vliv a publikum inzerentům.

Zobrazit   Sdílet
CzechCrunch 25. 11. 2014, 12:51

Blackberry se trapným pokusem snaží přetáhnout zákazníky Apple

15171810148_121f244cc7_kBlackberry Passport, to je nejnovější vlajková loď Blackberry cílící na použitelnost, která neoplývá nijak úžasným designem, natož cenou, která u nás dosahuje zhruba 16,5 tisíce …

Zobrazit   Sdílet
Objevit.cz: IT magazín, zprávy a novinky ze světa IT 25. 11. 2014, 12:43

Tisková zpráva: Acronis uvádí na trh Acronis True Image 2015 CZ for PC a Mac

Nejnovější verze zahrnuje inovované uživatelské rozhraní a poskytuje plné zálohování operačních systémů s podporou počítačů PC a Mac s duální ochranou a rychlým zálohováním do lokálního a neomezeného cloudového úložiště….

Zobrazit   Sdílet
MediaGuru 25. 11. 2014, 12:03

Portál Audiolibrix zavádí předplatné audioknih

Portál zaměřený na audioknihy Audiolibrix.cz zprovozňuje prodej předplatného. celý článek »

Zobrazit   Sdílet
MladýPodnikatel.cz 25. 11. 2014, 11:24

Inzerce: Nevíte si rady s výběrem účetní firmy? Poradíme vám!

Výběr kvalitní účetní firmy či účetního je v zájmu každého živnostníka i menší firmy, neboť v oblasti financí je potřeba naprostá.. přejít na článek

Zobrazit   Sdílet
Médiář.cz 25. 11. 2014, 11:19

Nova s Markízou chystají sedmou SuperStar

Česká obdoba britské soutěže se na Nově udrží minimálně 11 let.

Zobrazit   Sdílet
Objevit.cz: IT magazín, zprávy a novinky ze světa IT 25. 11. 2014, 10:43

Tisková zpráva: Moderní autentizační řešení

Společnost ESET upozorňuje, že pro zásadní posílení zabezpečení přístupu k systémům a datům není potřeba čekat na plošnou dostupnost inovativních biometrických metod. Kanadská banka Royal Bank of Canada (RBC) a…

Zobrazit   Sdílet
MediaGuru 25. 11. 2014, 10:17

Gazeta Wyborcza mění s placeným webem příjmy

Gazeta Wyborcza ukazuje, že za kvalitní obsah jsou čtenáři ochotni na internetu platit. celý článek »

Zobrazit   Sdílet
Objevit.cz: IT magazín, zprávy a novinky ze světa IT 25. 11. 2014, 10:16

Google: řešení Contributor odstraní reklamu, platit se bude za obsah

Lidé vyhledávají na internetu informace, které jim jsou poskytovány zdarma. Proto majitelé webových stránek nechávají zobrazovat na svých stránkách reklamy. Google je ale chce odstranit pomocí nové služby Contributor, avšak výměnou za finanční podporu ze strany uživatelů.

Zobrazit   Sdílet
Motejlek.com 25. 11. 2014, 09:50

Všech pět hlavních slovenských deníků řídí ženy

Novou šéfredaktorkou deníku SME se stala Beata Balogová. Ženy tak definitivně ovládly slovenské deníky. Šéfredaktorkou Pravdy je Nora Slišková, Nového Času Júlia Kováčová, Plus Jeden Deň řídí Andrea Jovanovič a pověřenou šéfredaktorkou Hospodárských novín je Marcela Šimková.

Zobrazit   Sdílet
Reklamná agentúra TRIAD Advertising | Blog 25. 11. 2014, 09:17

Toto leto TRIAD získal SEDEM nových značiek. Pozrite sa, ktoré to boli.

Letná uhorka? Zabudnite na to. V posledných rokoch sa ukázalo, že opak je pravdou a že letné mesiace sa nesú v znamení tendrovania komunikácie pre veľké značky. Tento rok bol pre nás výnimočný, pretože júl, august aj september nám splynul do jedného dlhého mesiaca, ktorý sme nazvali TENDERBER.
Tenderber skončil veľmi úspešne, zmluvy sú konečne podpísané [...]

Zobrazit   Sdílet
Objevit.cz: IT magazín, zprávy a novinky ze světa IT 25. 11. 2014, 08:00

VIDEO: Sheldon z Big Ben Theory je novou tváří Intelu

Hlavní postava z kultovního seriálu – Big Ben Theory, Jim Parsons, se nyní stal tváří Intelu. Jim, který v seriálu ztvárnil postavu génia Sheldona Coopera, nyní v reklamách Intelu prezentuje technologii RealSense 3D.

Zobrazit   Sdílet
www.knesl.com 25. 11. 2014, 07:53

Okomentovaný zdroják piškvorek

Někteří jste si jistě stáhli piškvorky a zahráli si. Zjistili jste
nejspíš, že hra je najednou pekelně těžká. No a chtěli byste piškvorky
třeba upravit, nebo se podívat, jak se taková hra udělá v Clojure?

Pojďme si projít zdrojáky.

(ns piskvorky.core
  (:require [clojure.string :as s])
  (:gen-class))

Celá hra se vešla do jednoho namespace piskvorky.core. protože kód
nepřesáhl 100 řádek, necítil jsem potřebu zavádět další ns. Direktiva
gen-class vytvoří třídu, takže vygenerovaný jar souboru půjde pustit.

(defn usage []
  (println "Ahoj v piskvorkach naslepo.\nPovolene prikazy jsou:\nnew - nova hra\nquit - konec\n[a-i][0-9] - tah na pole, kde rada je pozice a, b, c, d, e, f, g, h, i. Sloupec je 1 ... az 9.\nformat zapisu je napr. e5\nZacina x"))

Nejspíš nepotřebuje komentář. Snad jen to, že dávat regulární
výrazy se moc nehodí do uživatelského manuálu hry, kterou ovládají i
pětileté děti.

(defn make-board []
  (vec (repeat 9 (vec (repeat 9 :nothing)))))

Vygeneruje hrací pole tvořené vektorem 9×9. Samozřejmě mohl bych snadno
hrací pole reprezentovat i jen jako pole 91 čísel, nebo dokonce jen jako
bitset 182 bitů (což je jasná přeoptimalizace, na server s 96 giga RAM by se
vešlo 3 a půl miliardy her, což při běžné dynamice hry v žádném
případě neprojde síťovkou.

(defn command->position [command]
  (if (= 2 (count command))
    (let [fst (subs command 0 1)
          snd (subs command 1 2)]
      (if (and (contains? #{"a" "b" "c" "d" "e" "f" "g" "h" "i"} fst)
               (contains? #{"1" "2" "3" "4" "5" "6" "7" "8" "9"} snd))
        [
         ({"a" 0 "b" 1 "c" 2 "d" 3 "e" 4 "f" 5 "g" 6 "h" 7 "i" 8} fst)
         ({"1" 0 "2" 1 "3" 2 "4" 3 "5" 4 "6" 5 "7" 6 "8" 7 "9" 8} snd)]
        :error))
    :error))

Funkce, která zadané souřadnice převede z formátu a1 na vektor [0 0],
tzn. na přímou adresu pole. Tato funkce zároveň validuje, čímž zdvojuje
data. S troškou úsilí by se dala funkce ještě zkrátit tím, že bych si
hash uložil od “proměnné”, kterou bych pak používal.

(defn contains-5-iter [[fst & coll] active actual-count]
  (if (= fst active)
    (if (and (= 4 actual-count) (not= active :nothing))
      true
      (recur coll active (inc actual-count)))
    (if (= 0 (count coll))
      false
      (recur coll fst 1))))

Rekurzivní funkce, která vrací, zda zadaná kolekce obsahuje řadu 5
stejných. Zajímavé je rozpadání pole do fst a zbytku coll pomocí [fst
& coll] v argumentech funkce.

(defn contains-5 [coll]
  (if (> (count coll) 4)
    (contains-5-iter (rest coll) (first coll) 1)
    false))

Funkce, která zjistí, zda kolekce obsahuje řadu 5 stejných v pohodlné
formě.

(defn take-9-around [board position xfn yfn]
  (let [xs (map xfn (range -4 5))
        ys (map yfn (range -4 5))
        positions (map (fn [x y] [x y]) xs ys)
        valid-positions (filter (fn [[x y]] (and (>= x 0) (<= x 8) (>= y 0) (<= y 8))) positions)
        ]
    (map (partial get-in board) valid-positions)))

(defn won [board active-player position]
  (or
    (contains-5 (take-9-around board position (partial + (first position)) (fn [_] (second position)))) ; L < - > R
    (contains-5 (take-9-around board position (fn[_] (first position)) (partial + (second position)))) ; U < - > D
    (contains-5 (take-9-around board position (partial + (first position)) (partial + (second position)))) ; LD <-> UR
    (contains-5 (take-9-around board position (partial + (first position)) (partial - (second position)))))) ; LU <-> DR

To, že někdo vyhrál, poznáme tak, že kolem bodu, kde hráč umístil
svůj tah, uděláme do všech stran vektory o 9 prvcích (tah + 4 na každou
stranu). Pak odstraníme všechny mimo hrací plochu (řádka začínající
valid-positions) a použijeme funkci contains-5, kterou jsme si definovali
dříve.

Zajímavé je použití funkcí, které čekají nagenerované číslo -4, -3
až 4 a které vrací odpovídající souřadnici.

(defn turn [board active-player position]
  (assoc-in board position active-player))

Tah jen modifikuje hrací plochu.

(defn full-board [board]
  (not (contains? (set (flatten board)) :nothing)))

Jak zjistit, že je hrací plocha plná? Zde tak, že udělá z vektoru
vektorů jen jednorozměrné pole. To se převede na set, což je datová
struktura, která může obsahovat pouze unikátní prvky. Pokud je pole plné,
obsahuje pouze :x a :o, což jsou tahy a neobsahuje :nothing, což je prázdné
políčko.

Opět by šlo toto vyřešit rychleji s pomocí map a funkce not-any?. Toto
řešení je zcela dostatečné pro 1 hráče. V případě, že by bylo hrací
pole reprezentované jako 1 pole, stačil by kód:


(defn full-board [coll]
        (not-any? (partial = :nothing) coll))

; nebo v point-free formatu

(def full-board (partial not-any? (partial = :nothing)))

Jedeme dál.

(def next-player
  {:x :o
   :o :x})

Tady se dostáváme na krásnou vlastnost Clojure. Hash je zároveň funkce a
pokud ho zavoláme s argumentem, který je roven jednomu z jeho klíčů,
vrátí hodnotu. Takže jsme si vytvořili funkci (protože funkce je relace,
která pro každou hodnotu z definičního oboru přiřazuje právě jednu
hodnotu z oboru hodnot, což je pravda).

(defn already-taken [board position]
  (not= :nothing (get-in board position)))

Pole je volné, pokud na něm je nastaveno :nothing.

(defn print-board [board]
  (println (s/reverse (s/join "\n" (map (fn [row]
                                          (s/reverse (s/join " "
                                                             (map (fn [item]
                                                                    (case item
                                                                      :x "x"
                                                                      :o "o"
                                                                      :nothing "_")) row)
                                                             ))) board)))))

Na konci hry chceme vytisknout hrací pole. Tato funkce převede :x na “x”,
:o na “o” a :nothing na “_”. To vše spojí do stringu, který se poté
vytiskne.

(defn game-loop [board active-player game-status]
  (do
    (println "Hrac" (name active-player) " ")
    (let [command (read-line)
          position (command->position command)
          args (cond (= command "new")              (do (println "Nova hra") (list (make-board) :x :active))
                     (= command "quit")             (println "Navidenou")
                     (= command "board")            (do (print-board board) (list board active-player game-status))
                     (= position :error)            (do (println "Tah ve spatnem formatu")
                                                        (list board active-player game-status))
                     (= game-status :complete)      (do (println "Hra dokoncena, dej \"new\" pro novou")
                                                        (list board active-player game-status))
                     (already-taken board position) (do (println "Pole je zabrano, hraj znovu")
                                                        (list board active-player game-status))
                     true (let [new-board (turn board active-player position)]
                            (if (won new-board active-player position) (do
                                                        (println "VYHRA! Gratulace hraci " active-player)
                                                        (print-board new-board)
                                                        (list new-board (next-player active-player) :complete))
                              (if (full-board new-board)
                                (do (println "Remiza, hraci pole zaplneno") (list new-board active-player) :complete)
                                (do (println "Ok") (list new-board (next-player active-player) game-status))))))]
      (when args (recur (first args) (second args) (nth args 2))))))

A tady je samotná herní smyčka. Je snadná, za zmínku stojí jen to, že
do args se vždy dostane buď nil, aplikace tím má zkončit, nebo pole s
parametry pro rekurzi. Samotná rekurze je na konci funkce.

(defn init []
  (usage)
  (game-loop (make-board) :x :active))

(defn -main []
  (init))

Inicializace a spuštění aplikace. -main a init by šly spojit.


Na cca 90 řádcích jsem napsal primitivní hru. Věřím, že byste se i v
jiných jazycích dostali na podobné číslo. Co mi přijde důležité, že
jste se podívali na některé věci, které jsou v Clojure možné.<!–

–>

Zobrazit   Sdílet
Objevit.cz: IT magazín, zprávy a novinky ze světa IT 25. 11. 2014, 03:45

Když se rozhodnete blogovat: Tumblr nebo WordPress?

Přemýšleli jste o tom, že byste si začali psát vlastní blog? Nebo už jste si dokonce jisti, jen nevíte, jak začít? Ať tak či tak, určitě jste již slyšeli o Tumlbru a WordPressu. Možná jste dokonce uvažovali nad tím, jakou platformu si pro blogování vybrat a přemýšleli, jaký je mezi nimi rozdíl. Abychom to uvedli na pravou míru, rozdílů je mezi nimi skutečně hodně. Vlastně jsou úplně odlišné. Spojuje je ovšem to, že jsou obě využívané k blogování.

Zobrazit   Sdílet
Objevit.cz: IT magazín, zprávy a novinky ze světa IT 25. 11. 2014, 03:37

Technologie od Googlu pozná, co je na fotkách, a roztřídí je

V dřívějších dobách jste se zamysleli nad tím, co budete fotit. Dneska už nemusíte. Zmáčknete spoušť tolikrát, kolikrát jen budete chtít. Vždyť to pak stejně můžete vymazat, že? Jenže to je právě ten bod zlomu. Komu se potom bude chtít všemi těmi fotkami probírat a vybírat, co je potřeba smazat a co zachovat? Bohužel to většinou musíme udělat sami.

Zobrazit   Sdílet
Motejlek.com 25. 11. 2014, 00:44

Celkem pozoruhodná cena za dodavatele 4 procent elektřiny ve Spojeném království

Situace na evropském energetickém trhu představuje pro odvážně akvizitory obrovské příležitosti. Ještě před pár lety se zdálo nemožné, aby soukromá česká firma koupila v cizině velkou uhelnou elektrárnu. Dnes může koupit téměř jakoukoli. Energetický a průmyslový holding vedený Danielem Křetínským nemá žádnou akviziční záklopku. I díky tomu kupuje dodavatele 4 procent elektřiny v Británii ze cenu vskutku lidovou.
Poznámka: Článek je přístupný pouze registrovaným uživatelům.

Zobrazit   Sdílet
25. 11. 2014, 00:05

Jeden z tých momentov…

…keď som hrdý na to, že pracujem v Martinus.sk. Na svojich kolegov a kamarátov. Na to, že aj na Slovensku existujú firmy, ktoré dokazujú, že úspech a slušnosť sa navzájom nevylučujú.

Náš zákazník postol na Twitteri túto fotku a my, duše citlivé, sme nad ňou pískali ako nad košíkom mačiatok ešte dva dni. :-)

Kolegovia na centrále však neostali len pri utieraní nenápadných sĺz dojatia, ale rozhodli sa dobrý pocit oplatiť. Len tak, z vlastnej iniciatívy. Tu je odpoveď:

A viete čo? Raketa očividne doletela, kam mala… :-)

Čo dodať. Snáď len: Proud of you, guys! :-)

Tisíce príbehov. Jedno kníhkupectvo. 

Zobrazit   Sdílet


Odebírejte BuzzMag na email

Zavřít