Skip to content

Instantly share code, notes, and snippets.

View KengoTODA's full-sized avatar

Kengo TODA KengoTODA

View GitHub Profile
@KengoTODA
KengoTODA / create_tests.sh
Created March 5, 2011 13:17
test case generator for partake.in (trial)
#!/bin/sh
# test case generator for partake.in
create_testcase_filename() {
_wordcount=`echo $2 | wc -c`
_wordcount=`expr $_wordcount - 2`
_target=`echo $2 | cut -c 1 | tr '[a-z]' '[A-Z]'`
_target=$_target`echo $2 | cut -c 2-$_wordcount`
echo ${_target}`echo $3 | sed -e s/TestCaseBase/Test/`
@KengoTODA
KengoTODA / create_tests.pl
Created March 5, 2011 15:36
test case generator for partake.in (trial)
#!/usr/bin/perl
use strict;
use warnings;
# create test case file name
# ex.) HogeServiceTestCaseBase -> CassandraHogeServiceTest
sub create_testcase_filename() {
my ($testcasebase_filename, $target_datastore) = @_;
my $testcase_filename = ucfirst(lc($target_datastore)).$testcasebase_filename;
$testcase_filename =~ s/TestCaseBase/Test/;
@KengoTODA
KengoTODA / mergeSort.hs
Created April 18, 2011 13:33
dirty merge sort
mergeSort :: (Ord a) => [a] -> [a]
mergeSort [] = []
mergeSort [x] = [x]
mergeSort xs = merge (mergeSort l) $ mergeSort r
where
s = length xs `div` 2
l = take s xs
r = drop s xs
merge x [] = x
merge [] y = y
@KengoTODA
KengoTODA / fastMergeSort.hs
Created April 18, 2011 21:34
merge sort v2
fastMergeSort :: (Ord a) => [a] -> [a]
fastMergeSort xs = fastMergeSort' (length xs) xs
where
fastMergeSort' 0 [] = []
fastMergeSort' 1 [x] = [x]
fastMergeSort' s xs = merge (fastMergeSort' i l) (fastMergeSort' j r)
where
i = s `div` 2
j = s - i
l = take i xs
@KengoTODA
KengoTODA / slowMergeSortForVector.hs
Created July 18, 2011 14:32
Vectorでソート書いてみたがListのそれより遅くなった。原因未検証。
-- http://haskell.org/haskellwiki/Numeric_Haskell:_A_Vector_Tutorial
-- https://gist.github.com/926236
import qualified Data.Vector as V
size = 1000
slowMergeSort :: (Ord a) => (V.Vector a) -> (V.Vector a)
slowMergeSort xs = slowMergeSort' (V.length xs) xs
where
@KengoTODA
KengoTODA / JSONInputStream.diff
Created August 20, 2011 16:22
InputStream from JSONObject. This class will help feeding JSON from the application server.
diff --git a/JSONInputStream.java b/JSONInputStream.java
new file mode 100644
index 0000000..93708ff
--- /dev/null
+++ b/JSONInputStream.java
@@ -0,0 +1,75 @@
+package org.json;
+
+import java.io.ByteArrayInputStream;
+import java.io.ByteArrayOutputStream;
var burrito = require('burrito'),
mime = require('mime'),
fs = require('fs'),
src;
src = burrito('var image = hoge.fuga.game.assets["chara1.gif"]', function (node) {
var p = node.parent(), n, fileName, fileData, mimeType;
if (!p) {
return;
}
@KengoTODA
KengoTODA / FileBackedOutputStreamSample.java
Created November 23, 2011 23:19
a sample code to explain how to use FileBackedOutputStream
package guava.io;
import java.io.BufferedOutputStream;
import java.io.ByteArrayOutputStream;
import java.io.IOException;
import java.io.OutputStream;
import com.google.common.base.Stopwatch;
import com.google.common.io.FileBackedOutputStream;
@KengoTODA
KengoTODA / HelloWorld.jasmin
Created January 22, 2012 05:33
Test code to check the 'bastore' opcode doesn't need the 'i2b' opcode
.class public HelloWorld
.super java/lang/Object
.method public <init>()V
aload_0
invokenonvirtual java/lang/Object/<init>()V
return
.end method
.method public static main([Ljava/lang/String;)V
@KengoTODA
KengoTODA / Rakefile
Created March 24, 2012 12:00
Rakefile for enchant.js programming
require 'net/https'
require 'uri'
require 'rake/packagetask'
require 'rake/clean'
task :default => "index.html"
PACKAGE_NAME = 'MyGame'
PACKAGE_VERSION = '1.0.0'
OPTIMIZE_DIR = './optimize'