Andreas Ekeroot Rembane

## NiceHaskell.hs
runRandom :: State StdGen a -> IO a
runRandom x = do
  g <- newStdGen
  return $ evalState x g

## prime.hs
import qualified Data.Vector as V

steppingPrimeGenerator :: (V.Vector Int, Int) -> (V.Vector Int, Int)
steppingPrimeGenerator (ps, x) | V.null $ V.filter ((==0) . (mod x)) ps = (V.snoc ps x, succ x)
                               | otherwise                              = (ps, succ x)


## exceptional_looping.py
li = [...]
try:
    while True:
        c = li.next()
        if condition(c):
            break

except StopIteration:
    # Not found...

## Magic.hs
{-# LANGUAGE NoMonomorphismRestriction #-}
-- If we aren't careful, the monomorphism restriction will bite our backs.

module Magic where

magic :: (Monad m) => Int -> Int -> m Int
magic a b = return $ a + b

main = magic 7 3

## streakerbjoern.txt
 O
-|-
|||
|||
 -
|||
| |
- -

http://www.youtube.com/watch?v=vTnSf8OjYQ0

## this_is_usable_code.py
    # Lets build a dictionary of people, like this:
    names = [u'{} {}'.format(f.lower(),e.lower()) for (f,e) in Participant.objects.values_list('fname', 'ename').order_by('fname', 'ename')]
    autocompletion_tree = defaultdict(list)
    for (i,n) in enumerate(names):
        s = ''
        for c in n:
            s += c
            autocompletion_tree[s].append(i)

    # Purge it!

## index.html
<!DOCTYPE html>
<html>
  <body>
    <h1>My web page</h1>

    This document has a heading and some text. <em>This sentence is emphasized.</em>

    <script src="main.js" type="text/javascript"></script>
  </body>
</html>

## upgrading_system.txt
( 33/185) upgrading firefox                                                                    [#######################################################] 100%
New optional dependencies for firefox
    gstreamer0.10-bad-plugins: aac, vp8 and opus decoding [installed]
    gstreamer0.10-base-plugins: vorbis decoding, ogg demuxing [installed]
    gstreamer0.10-good-plugins: webm and mp4 demuxing [installed]
    gstreamer0.10-ugly-plugins: h.264 decoding

## fizzbuzz.hs
module Main where

data FzBz = Fizz | Buzz | FizzBuzz | N Int

instance Show FzBz where
    show Fizz     = "Fizz"
    show Buzz     = "Buzz"
    show FizzBuzz = "FizzBuzz"
    show (N x)    = show x

## .vimrc
" Inget pip goddamit!
set visualbell

syntax on
set autoindent
set nosmartindent
set tabstop=4
set expandtab
set shiftwidth=4
set hlsearch " Higliht searched words
	runRandom :: State StdGen a -> IO a
	runRandom x = do
	g <- newStdGen
	return $ evalState x g
	import qualified Data.Vector as V

	steppingPrimeGenerator :: (V.Vector Int, Int) -> (V.Vector Int, Int)
	steppingPrimeGenerator (ps, x) \| V.null $ V.filter ((==0) . (mod x)) ps = (V.snoc ps x, succ x)
	\| otherwise = (ps, succ x)
	li = [...]
	try:
	while True:
	c = li.next()
	if condition(c):
	break

	except StopIteration:
	# Not found...
	{-# LANGUAGE NoMonomorphismRestriction #-}
	-- If we aren't careful, the monomorphism restriction will bite our backs.

	module Magic where

	magic :: (Monad m) => Int -> Int -> m Int
	magic a b = return $ a + b

	main = magic 7 3
	O
	-\|-
	\|\|\|
	\|\|\|
	-
	\|\|\|
	\| \|
	- -

	http://www.youtube.com/watch?v=vTnSf8OjYQ0
	# Lets build a dictionary of people, like this:
	names = [u'{} {}'.format(f.lower(),e.lower()) for (f,e) in Participant.objects.values_list('fname', 'ename').order_by('fname', 'ename')]
	autocompletion_tree = defaultdict(list)
	for (i,n) in enumerate(names):
	s = ''
	for c in n:
	s += c
	autocompletion_tree[s].append(i)

	# Purge it!
	<!DOCTYPE html>
	<html>
	<body>
	<h1>My web page</h1>

	This document has a heading and some text. <em>This sentence is emphasized.</em>

	<script src="main.js" type="text/javascript"></script>
	</body>
	</html>
	( 33/185) upgrading firefox [#######################################################] 100%
	New optional dependencies for firefox
	gstreamer0.10-bad-plugins: aac, vp8 and opus decoding [installed]
	gstreamer0.10-base-plugins: vorbis decoding, ogg demuxing [installed]
	gstreamer0.10-good-plugins: webm and mp4 demuxing [installed]
	gstreamer0.10-ugly-plugins: h.264 decoding
	module Main where

	data FzBz = Fizz \| Buzz \| FizzBuzz \| N Int

	instance Show FzBz where
	show Fizz = "Fizz"
	show Buzz = "Buzz"
	show FizzBuzz = "FizzBuzz"
	show (N x) = show x
	" Inget pip goddamit!
	set visualbell

	syntax on
	set autoindent
	set nosmartindent
	set tabstop=4
	set expandtab
	set shiftwidth=4
	set hlsearch " Higliht searched words