L8D

#!/usr/bin/env bash
cat $1 | ./compile | gcc --std=c99 -x c -o $2 -

L8D

+++++ +++++ [ > +++++ +++++ > + << - ] > ++++ . + . > .

L8D

var gimmeFullscreenMethod = function() {
  'use strict';

  var el = document.documentElement, open, cancel, video;
  
  open = el.requestFullScreen || el.webkitRequestFullScreen || el.mozRequestFullScreen || el.msRequestFullScreen;
  cancel =  el.exitFullscreen || el.webkitExitFullscreen || el.mozExitFullscreen || el.msExitFullscreen;

  if (open) {
    return {

L8D

import System.Environment (getArgs)

main = do
  args <- getArgs
  if null args then interact id else mapM ((>>= putStr) . readFile) args

L8D

main = putStr . unlines . map fizzbuzz $ [1..100]

divBy = ((== 0) .) . mod

fizzbuzz :: Int -> String
fizzbuzz x | x `divBy` 15 = "FizzBuzz"
           | x `divBy` 5  = "Buzz"
           | x `divBy` 3  = "Fizz"
           | otherwise    = show x

L8D

test :: Num a => [a] -> [a]
test = filter $ (== 0) . (`mod` 2)

L8D

-- weird-adder.hs - Josh Sandlin - 6:45PM - 2/14/2010
-- wierd-adder.hs - Tenor Biel - 12:09PM - 2/13/201
-- Really weird way to add a range of numbers

-- takes an upper limit and returns a list of pairs
pairedRange :: Int -> [(Int, Int)]
pairedRange x = zip (filter odd [1..x]) (filter even [1..x])

-- adds a list of pairs
addPairs :: Num a => [(a, a)] -> [a]

L8D

parseLine = fmap tail . break (== ' ')

editLine = fmap f where
    f s = s ++ "^http://mtgimage.com/card/" ++ s ++ ".jpg"

writeLine (x, y) = x ++ " " ++ y

main = interact $ unlines
                . map ( writeLine
                      . editLine

L8D

import qualified Data.Set as S

data Color
    = White
    | Blue
    | Black
    | Red
    | Green
    deriving (Enum, Eq, Ord)

L8D

" setup NERDTree button
nnoremap <silent> <leader>m :NERDTreeToggle<enter>

" map ctrl+hjkl to c-w movements
map <C-h> <C-w>h
map <C-j> <C-w>j
map <C-k> <C-w>k
map <C-l> <C-w>l

" pathogen stuff