"Крестики нолики" на 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 .