kakkun61

PARSER_BEGIN (Parser)
public class Parser {
}
PARSER_END (Parser)

SKIP: {
	" "
}
TOKEN: {
	<INTEGER: (["0"-"9"])+>

kakkun61

PARSER_BEGIN (Parser)
public class Parser {
}
PARSER_END (Parser)

SKIP: {
	" "
}
TOKEN: {
	<INTEGER: (["0"-"9"])+>

kakkun61

PARSER_BEGIN (Parser)
public class Parser {
}
PARSER_END (Parser)

SKIP: {
	" "
}
TOKEN: {
	<INTEGER: (["0"-"9"])+>

kakkun61

PARSER_BEGIN (Parser)
public class Parser {
}
PARSER_END (Parser)

SKIP: {
	" "
}
TOKEN: {
	<INTEGER: (["0"-"9"])+>

kakkun61

-- Scheme 手習い 5章 p.83
-- The Little Schemer Section 5
rember_star :: (Eq a, Eq b) => a -> [b] -> [b]
rember_star _ [] = []
rember_star e (x:xs) =
  case x of
    ys@(_:_)   -> (rember_star e ys) : (rember_star e xs)
    z | e == z -> rember_star e xs
    _          -> x : rember_star e xs

kakkun61

main = do
	cs <- getContents
	putStrLn $ leapYear $ read cs
	where
		leapYear :: Int -> String
		leapYear year | year `mod` 400 == 0 = "YES"
		              | year `mod` 100 == 0 = "NO"
		              | year `mod` 4   == 0 = "YES"
		              | otherwise           = "NO"

kakkun61

main = readLn >>= putStrLn . leapYear
	where
		leapYear :: Int -> String
		leapYear year | year `mod` 400 == 0 = "YES"
		              | year `mod` 100 == 0 = "NO"
		              | year `mod` 4   == 0 = "YES"
		              | otherwise           = "NO"

kakkun61

! ~/.Xmodmap
keysym Muhenkan = Shift_L
add shift = Shift_L
keysym Henkan = Shift_R
add shift = Shift_R

kakkun61

#include<iostream>
#include<functional>
#include<cmath>

using namespace std;
using namespace std::tr1;

template<typename Param, typename Middle, typename Result>
function<Result(Param)> compose(const function<Result(Middle)>& f, const function<Middle(Param)>& g) {
    return [f, g](Param x){return f(g(x));};

kakkun61

#! /bin/sh
b=`git branch | grep '*' | awk '{print $2}'`
git checkout master && git merge $b && git checkout $b