fizruk

{-# LANGUAGE TemplateHaskell, Rank2Types #-}
module Main where

import Prelude hiding (last)

import Control.Lens
import Control.Monad.State.Strict (StateT, evalStateT, put)
import Control.Monad.IO.Class (liftIO)
import Control.Monad (when)
import Control.Applicative ((<$>), (<*>), pure)

fizruk

{-# LANGUAGE FlexibleInstances, DeriveFunctor, TypeFamilies #-}
module Main where

import Control.Comonad.Identity
import Control.Comonad.Trans.Class
import Control.Comonad.Trans.Cofree
import Control.Monad.Trans.Free
import Control.Monad (void)

import Control.Monad.State

fizruk

{-# LANGUAGE TypeFamilies, ExistentialQuantification, FlexibleInstances #-}
module Main where
 
import System.IO (isEOF, hFlush, stdout)
 
import Data.Char (toLower, isDigit)
import Data.Maybe (isNothing)
 
import Control.Monad.Trans.Free
import Control.Monad.IO.Class (MonadIO, liftIO)

fizruk

-- A Pandoc filter to use Pygments for Pandoc
-- Code blocks in HTML output
-- Nickolay Kudasov 2013
-- Requires Pandoc 1.12

import Text.Pandoc.Definition
import Text.Pandoc.JSON (toJSONFilter)
import Text.Pandoc.Shared
import Data.Char(toLower)
import System.Process (readProcess)

fizruk

{-# LANGUAGE TemplateHaskell #-}
module Main where

import Control.Monad
import Control.Monad.State
import Control.Monad.Trans.Iter
import Control.Lens

import Data.Set (Set)
import qualified Data.Set as Set

fizruk

{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE DeriveFunctor #-}
{-# LANGUAGE FlexibleContexts #-}
module Main where

import Control.Monad
import Control.Monad.Free
import Control.Monad.Free.TH

data Lang next

fizruk

" General bundles
NeoBundle 'Shougo/vimproc', {
      \ 'build' : {
      \     'windows' : 'make -f make_mingw32.mak',
      \     'cygwin' : 'make -f make_cygwin.mak',
      \     'mac' : 'make -f make_mac.mak',
      \     'unix' : 'make -f make_unix.mak',
      \    },
      \ }
NeoBundle 'Shougo/unite.vim'

fizruk

#!/usr/bin/python

import socket
import sys

# Create a TCP/IP socket
sock = socket.socket(socket.AF_INET, socket.SOCK_STREAM)

# Connect the socket to the port where the server is listening
server_address = ('localhost', 10000)

fizruk

{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE DeriveFunctor #-}
module Main where

import Control.Monad.Trans
import Control.Monad.Free.Class
import qualified Control.Monad.Trans.Free as FT
import qualified Control.Monad.Free as F

fizruk

-- 3
fmap fmap fmap
= fmap . fmap

-- 4
fmap fmap fmap fmap
= (fmap . fmap) fmap
= fmap (fmap fmap)

-- 5