KWMalik

<div data-role="page" id="toc">
  <div data-role="content">
    <h2 class="likechapterhead">Contents</h2>

    <!-- FOREWORD CHAPTER (i.e. everything between #toc and #chapter_1) -->
    <div class="chapter_contents">
      <h2>
        <a class="chapter_title" href="#chapter_0">
          Foreword
        </a>

KWMalik

{-# LANGUAGE UnicodeSyntax #-}
module Main where

import Control.Applicative ((<$>))
import Control.Monad (forM_, when)
import Control.Monad.State (execState, modify)
import Data.Bits (Bits, xor)
import Data.Char (chr, isAlpha)
import Data.List (maximumBy, group, sort, zip4)
import Data.List.Split (splitEvery)

KWMalik

{-# LANGUAGE UnicodeSyntax #-}

import Control.Applicative ((<$>))
import Control.Monad ((<=<))

import Crypto.Cipher.AES (Key, IV(..), decryptCBC, decryptCTR, initKey)
import Data.ByteString (ByteString)
import qualified Data.ByteString as B

KWMalik

{-# LANGUAGE UnicodeSyntax #-}

import Control.Applicative ((<$>))
import Data.Monoid (mempty, (<>))
import Text.Printf (printf)

import Crypto.Hash.SHA256 (hash)
import Data.ByteString (ByteString)
import qualified Data.ByteString as B

KWMalik

{-# LANGUAGE UnicodeSyntax #-}
module Main where

import Control.Applicative ((<$>))
import Control.Monad (foldM, join)
import qualified Data.Bits as Bits
import Data.List (genericReplicate, inits)
import Data.Monoid ((<>))
import Data.Word (Word8)
import Text.Printf (printf)

KWMalik

{-# LANGUAGE UnicodeSyntax #-}

import Control.Monad (foldM_, join)
import qualified Data.HashMap.Lazy as H

b ∷ Int
b = 1048576


p ∷ Integer

KWMalik

{-# LANGUAGE UnicodeSyntax #-}
import Data.Char (chr)
import Text.Printf (printf)

import Data.List.Split (chunk)
import Data.Number.CReal (CReal)


main ∷ IO ()
main =

KWMalik

#!/usr/bin/env runhaskell
{-# LANGUAGE UnicodeSyntax #-}

import Control.Applicative ((<$>))
import Control.Monad ((<=<))
import Data.List (intercalate)
import System.Environment (getArgs)

import Distribution.ModuleName (components)
import Distribution.PackageDescription (condLibrary, condTreeData, libModules)

KWMalik

{-# LANGUAGE UnicodeSyntax #-}
module Main where

import Control.Monad (replicateM)
import Data.Functor ((<$>))
import Data.IntMap (IntMap, (!))
import Data.Maybe (fromJust)
import System.Environment (getArgs)
import System.Random (randomRIO)
import qualified Data.IntMap as IM

KWMalik

#!/usr/bin/env perl
# This crappy perl script parses .cabal files for `authors' field and extracts authors names. Then it collects them in one enormous hash associating total number of findings. Then it "pretty"-prints hash from most productive authors to least productive.
use v5.14;
use warnings FATAL => qw(void);


# Skip all lines before /^author:/i one, then return it.
sub lex ($) {
	my $h = $_[0];
	while (<$h>) { if (/^author:/i) { return $_ } }