Skip to content

Instantly share code, notes, and snippets.

View haru01's full-sized avatar

eiji.ienaga haru01

67 followers · 93 following
View GitHub Profile
@haru01
haru01 / gist:148824
Created July 17, 2009 02:17
Sub セル結合()
Selection.Merge
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
End With
End Sub
Sub 同値セル結合()
Application.DisplayAlerts = False
@haru01
haru01 / while_macro
Created March 14, 2010 03:43
(let ((x 0))
(do ()
((not (< x 3)))
(print x)
(setq x (1+ x))))
(defmacro while (test &body body)
`(do ()
((not ,test))
,@body))
@haru01
haru01 / coffee-sample
Created March 18, 2010 16:08
> coffee -e -p "number: 42"
(function(){
var number;
number = 42;
})();
@haru01
haru01 / coffee-sample
Created March 18, 2010 22:35
> coffee -e -p "square: (x) -> x * x"
(function(){
var square;
square = function square(x) {
return x * x;
};
})();
@haru01
haru01 / coffee-sample-html
Created March 20, 2010 12:55
<!DOCTYPE html>
<html>
<head>
<meta http-equiv="content-type" content="text/html;charset=UTF-8" />
<title>CoffeeScript Sandbox</title>
</head>
<body>
<script type="text/coffeescript">
alert "hello coffee"
</script>
@haru01
haru01 / all gem uninstall
Created April 10, 2010 18:43
gem list | while read n v; do sudo gem uninstall $n -a ; done
@haru01
haru01 / game_spec.rb
Created April 14, 2010 13:13 — forked from kakutani/game_spec.rb
$:.unshift(File.dirname(__FILE__))
require 'spec_helper'
module BowlongGameMacro
class BowlongGamePlayer
def initialize
@game = Game.new
end
def roll_spare
@haru01
haru01 / gist:394270
Created May 8, 2010 02:48
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html;charset=utf-8"/>
<title>{Title}{block:PostTitle} / {PostTitle}{/block:PostTitle}</title>
<link rel="alternate" type="application/rss+xml" title="RSS" href="{RSS}"/>
<link rel="Shortcut Icon" type="image/png" href="{Favicon}" />
{block:Description}<meta name="description" content="{MetaDescription}" />{/block:Description}
@haru01
haru01 / gist:422313
Created June 2, 2010 12:36
class Array
def maps(*methods)
methods = [methods].flatten
self.map do |node|
methods.inject(node) {|result, method| method.call(result) }
end
end
end
twice = lambda {|node| node * 2 }
@haru01
haru01 / accounting transaction
Created June 17, 2010 22:50
require 'rubygems'
require 'mongo_mapper'
require 'pp'
MongoMapper.database = 'accounting-patterns'
# see accounting transaction http://martinfowler.com/apsupp/accounting.pdf
class AccountService
class AcccountingRunner
def initialize
@transaction = AccountingTransaction.new