Сообщения

Сообщения за октябрь, 2012

"Крестики нолики" на haskell

  -- Основной файл   -- подключем библиотеку графики: import Graphics . UI . WX -- для обработки исключений: import Control . Concurrent -- для связи между потоками: import Control . Concurrent . Chan -- созданые нами модули import Netmoduleimport DialogCF main = do -- создаём чаны для обещия между потоками chanD <- newChan chanN <- newChan -- и запускаем поток с сетью netFork <- forkOS $ mainNet chanD chanN -- а так же диалоговое окно firstD chanD chanN -- по завершению надо убить поток для сети killThread netFork   -- Gui   module DialogCF where import Graphics . UI . WX import Graphics . UI . WXCore import Control . Concurrent import Control . Concurrent . Chan import Data .