epsilonhalbe

∀ Studis: ∃: Life after Uni ??

Martin Heuschober

28. Juni 2014

---

CC-BY-NC-SA 4.0

epsilonhalbe

import System.IO

import Data.Ratio
import Control.Monad (liftM2)

import XMonad
-- import XMonad.Config.Gnome
import Data.Monoid
import System.Exit

epsilonhalbe

" .vimrc
" OrigAuthor: Steve Losh <steve@stevelosh.com>
" OrigSource: http://bitbucket.org/sjl/dotfiles/src/tip/vim/
" Author: Martin Heuschober <epsilonhalbe@gmail.com>
" Source: http://http://github.com/epsilonhalbe/dotfiles/vimrc
"
" This file changes a lot.  I'll try to document pieces of it whenever I have
" a few minutes to kill.

" Preamble ---------------------------------------------------------------- {{{

epsilonhalbe

module MyCombinatorics where

import Data.List ( (\\),
                   sort)
import Control.Applicative ( liftA2,
                             Applicative,
                             pure)

(^*) :: (a -> b) -> (b -> c) -> a -> c
f ^* g = g . f

epsilonhalbe

module MyCombinatorics where

import Data.List ( (\\),
                   sort)
import Control.Applicative ( liftA2,
                             Applicative,
                             pure)

(^*) :: (a -> b) -> (b -> c) -> a -> c
f ^* g = g . f

epsilonhalbe

module Transformer (dec2bin, bin2dec, dec2hex, hex2dec, num2letters, letters2num) where

dec2bin :: Int -> [Int]
dec2bin n
    |n==0 = []
    |otherwise = (dec2bin (div n 2))++[mod n 2]

bin2dec :: [Int] -> Int
bin2dec bs = foldl1 (\x y ->x*2+y) bs

epsilonhalbe

{- my (=ε/2) haskellous version of the game called mastermind -}

import Data.List.Split (splitOneOf)
{- has to be fetched with 
    foo@bar~> cabal update
    foo@bar~> cabal install split
-}
import Random

main = do