willnet

sudo yum install gcc-c++
wget http://nodejs.org/dist/v0.6.9/node-v0.6.9.tar.gz
tar zxvf node-v0.6.9.tar.gz
cd node-v0.6.9
./configure
make
sudo make install

willnet

sudo yum install libcurl-devel
wget http://nginx.org/download/nginx-1.0.11.tar.gz
tar zxvf nginx-1.0.11.tar.gz
sudo /usr/local/bin/gem install passenger
cd /usr/local/lib/ruby/gems/1.9.1/gems/passenger-3.0.11/bin
sudo env PATH=/usr/local/bin:$PATH ./passenger-install-nginx-module

willnet

# http://download.savannah.gnu.org/releases/freetype/ から最新のfreetypeをダウンロード
tar zxvf freetype-x.x.x
cd freetype
./configure
make
sudo make install

curl -O http://www.swfmill.org/releases/swfmill-0.3.2.tar.gz
tar zxvf swfmill-0.3.2.tar.gz
cd swfmill-0.3.2

willnet

# for rails 3 or higher

module ActiveRecord
  module Querying
    delegate :random_order, :to => :scoped
  end

  module QueryMethods
    def random_order
      relation = clone

willnet

RSpec::Matchers.define :have_json do |hash|
  match do |response|
    hash.all? do |k,v|
      JSON.parse(response.body)[k] == v
    end
  end

  failure_message_for_should do |response|
    body = JSON.parse(response.body)
    "expected that #{body} would have #{hash}"

willnet

#!/usr/bin/env ruby

number = ARGV[0]
number = number.to_i
raise if number == 0


ary = []

9.times do

willnet

data Shape = Circle Float Float Float | Rectangle Float Float Float Float

willnet

fizzbuzz :: Int -> String
fizzbuzz n 
  | n `mod` 15 == 0 = "fizzbuzz"
  | n `mod` 3 == 0 = "fizz"
  | n `mod` 5 == 0 = "buzz"
  | otherwise = show n
main = do
  mapM_ putStr $ map (++ ", ") (take 100 $ map fizzbuzz [1..])

willnet

-- http://www.rubyquiz.com/quiz93.html
import Data.Char

checkHappy :: Int -> Bool
checkHappy n = checkHappy' [n]
checkHappy' ::  [Int] -> Bool
checkHappy' list
  | firstInput == 1 = True
  | firstInput == nextValue = False
  | otherwise = checkHappy' (nextValue:list)

willnet

-- http://www.haskell.org/haskellwiki/99_questions/54A_to_60
-- Problem 55
data Tree a = Empty | Branch a (Tree a) (Tree a) deriving (Show, Eq)
leaf x = Branch x Empty Empty

cbalTree :: Int -> [Tree Char]
cbalTree 0 = [Empty]
cbalTree n = let (q, r) = (n - 1) `quotRem` 2
             in [Branch 'x' left right | i <- [q..(q+r)]
                , left <- cbalTree i