avdi

# Do you ever define #method_missing and forget #respond_to? I sure
# do.  It would be nice if we could do them both at the same time.

module MatchMethodMacros
  def match_method(matcher, &method_body) 
    mod = Module.new do
      define_method(:method_missing) do |method_name, *args|
        if matcher === method_name.to_s
          instance_exec(method_name, *args, &method_body)
        else

copiousfreetime

#!/usr/bin/env ruby

#------------------------------------------------------------------------------
# Aggregate Print useful information from /proc/[pid]/smaps
#
# pss  - Roughly the amount of memory that is "really" being used by the pid
# swap - Amount of swap this process is currently using
#
# Reference:
#  http://www.mjmwired.net/kernel/Documentation/filesystems/proc.txt#361

fabianp

"""
Low rank approximation for the lena image
"""
import numpy as np
import scipy as sp
from scipy import linalg
import pylab as pl

X = sp.lena().astype(np.float)
pl.gray()

ahammar

import Data.Generics
import Language.Haskell.Parser
import Language.Haskell.Pretty
import Language.Haskell.Syntax

main = do
    input <- getContents
    case parseModule input of
        ParseOk mod -> putStrLn $ prettyPrint $ everywhere (mkT desugarExp) mod
        ParseFailed loc msg -> failed loc msg

nathanmarz

;; Determine if any of the causes of the exception was of the specified type
(defn exception-cause? [klass ^Throwable t]
  (->> (iterate #(.getCause ^Throwable %) t)
       (take-while identity)
       (some (partial instance? klass))
       boolean))

nathanmarz

(use 'backtype.storm.clojure)
(use 'backtype.storm.config)
(require '[backtype.storm [thrift :as thrift]])
(import 'storm.starter.spout.RandomSentenceSpout)
(import 'backtype.storm.LocalCluster)

(defboltfull suffix-bolt ["word"]
  :params [suffix]
  :let [conf-state (atom nil)]
  :prepare ([conf context collector]

raggi

## SCROLL DOWN FOR THE RACE, THE FOLLOWING IS JUST UTILITY FROM COMMONLY USED CODE.

# Author::    Mohammad A. Ali  (mailto:[email protected])
# Copyright:: Copyright (c) 2008 eSpace, Inc.
# License::   Distributes under the same terms as Ruby

require 'fiber'

class Fiber

ryanb

# Add this to your spec_helper.rb
RSpec.configure do |config|
  config.treat_symbols_as_metadata_keys_with_true_values = true
  config.around(:each, :vcr) do |example|
    name = example.metadata[:full_description].downcase.gsub(/\W+/, "_").split("_", 2).join("/")
    VCR.use_cassette(name, :record => :new_episodes) do
      example.call
    end
  end
end

fronx

# https://gist.github.com/1185131

class Array
  def next; self[1..-1] end

  # returns a function that is the combination of a sequence of function calls
  # on some external arguments. the functions combined are the elements of self.
  def compose
    lambda do |*args|
      inject(*args) do |mem, fn|

mjackson

def a(*args, &block)
  puts "a got a block" if block_given?
end

def b(*args, &block)
  puts "b got a block" if block_given?
end

# In this call, `b' is called with the block and the
# return value is given to `a' as an argument.