5outh

graphFromFile :: String -> IO (Graph String)
graphFromFile f = do
  contents <- readFile f
  let info   = map words $ lines contents
      verts = nub . concat $ info
      conns  = map (\[a, b] -> (a, b)) info
      graph  = Graph verts conns
  return graph

hakre

<?php
/*
 * Get all 52 weeks of the year and work days given the first day of the January of current year
 * @link http://stackoverflow.com/a/14147613/367456 
 * @author hakre <http://hakre.wordpress.com/credits>
 */

/**
 * Filter a DatePeriod by year
 */

mplewis

// This program is an example of how to run a command such as
// ps aux | grep root | grep sbin
// using C and Unix.

#include <stdlib.h>
#include <unistd.h>

int pid;
int pipe1[2];
int pipe2[2];

aldanor

import Data.List     		(unfoldr, minimumBy)
import Data.Char 			(isSpace)
import Data.Function 		(on)
import Data.Maybe 			(mapMaybe, fromMaybe)
import System.Environment 	(getArgs)

import qualified Data.ByteString.Char8 as L
import qualified Data.IntMap as IM

type GraphData = (IM.IntMap (IM.IntMap [(Int, Int)]), Int)

owainlewis

module GraphsAlgs

where 

import List
import While
import Assert
import Reasoning (update,updates)

reachable :: Eq a => [(a,a)] -> a -> [a]

aronkerr

SELECT *
FROM SOME_TABLE_ONE STO
WHERE EXISTS (
  SELECT *
  FROM SOME_TABLE_TWO STT
  WHERE STO.STT_ID = STT.ID
)

holabene

<?php
/**
 * Caching to filesystem using ZendCache
 * Cache as much as possible, very convenient for dev (default ttl = 3600)
 */

use Guzzle\Http\Client;
use Guzzle\Plugin\Cache\CachePlugin; 
use Guzzle\Plugin\Cache\SkipRevalidation;
use Guzzle\Plugin\Cache\DefaultCacheStorage;

lucabrunox

$header = "...";
$parsed = array_map(function($x) { return array_map("trim", explode(":", $x, 2)); },array_filter(array_map("trim", explode("\n", $header))));

correl

<?php

class KeyError extends Exception {};

function filter_tree($tree, $fields) {
    if (empty($fields))
    {
        return $tree;
    }
    $result = array();

5outh

{-# LANGUAGE NoMonomorphismRestriction #-}

import Text.ParserCombinators.Parsec
import Text.ParserCombinators.Parsec.Token hiding (parens)
import Text.ParserCombinators.Parsec.Expr
import Control.Applicative hiding ((<|>))
import Control.Monad
import Prelude hiding (not)

data Expr = Not Expr | And Expr Expr | Or Expr Expr | Var Char | SubExpr Expr deriving Eq