Skip to content

Instantly share code, notes, and snippets.

View acidlemon's full-sized avatar
🐈
walking around like a cat

Masatoshi Kawazoe acidlemon

🐈
walking around like a cat
View GitHub Profile
#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use 5.014;
use Encode;
use JSON::PP qw/encode_json decode_json/;
use Sys::Hostname;
use IPC::Open2;
package mapbench_test
import "testing"
var N = 1000000
var m1 map[int]int = map[int]int{}
var m2 map[int]int = make(map[int]int, N)
@acidlemon
acidlemon / 01_ListenAndServe.go
Created December 16, 2014 09:05
net/http workshop
package main
import (
"fmt"
"io"
"log"
"net/http"
)
func Handler(w http.ResponseWriter, req *http.Request) {
@acidlemon
acidlemon / parallel.go
Last active August 29, 2015 14:10
embedded Perl in Go /w goroutine
package main
/*
#include <EXTERN.h>
#include <perl.h>
#include <stdio.h>
void init_perl() {
// PerlのCランタイムの初期化(全体で1回)
int argc = 0;
@acidlemon
acidlemon / test.go
Created November 27, 2014 17:27
simple embedded perl in Go
package main
/*
#include <EXTERN.h>
#include <perl.h>
#include <stdio.h>
static PerlInterpreter* perl;
void init_perl() {
@acidlemon
acidlemon / test.c
Created November 27, 2014 17:11
simple embedded perl in C
#include <EXTERN.h>
#include <perl.h>
#include <stdio.h>
int main(int argc, char* argv[], char* env[]) {
PerlInterpreter* perl;
// PerlのCランタイムの初期化(全体で1回)
PERL_SYS_INIT3(&argc, &argv, &env);
use strict;
use warnings;
use utf8;
use Test::More;
use Text::Xslate;
use Data::Section::Simple;
my $tx = Text::Xslate->new(
syntax => 'TTerse',
@acidlemon
acidlemon / gist:049fe8c9a790a52814fc
Created August 15, 2014 07:49
ISUCON 2013 本戦レギュレーション

ISUCON 2013 本戦レギュレーション

いつもの

競技は運営の用意したベンチマークのスコアの高さで優劣を競います。スコアが高くなれば高くなるほど優秀です。初期実装はGo, Javascript(Node), Perl, PHP, Python, Rubyの6言語を提供します。それ以外の言語で再実装するのは自由です。

採点基準は以下の通りです。

  • 一定時間内にリクエストを処理できた回数が多いほど高スコア
  • 特定のリクエストのレスポンスタイムが速いと高スコア(後述のベンチマーク仕様に詳細を記載しています)
@acidlemon
acidlemon / gist:2c7d4e2e5b4e24007e39
Last active April 16, 2023 03:56
ISUCON 2013 予選レギュレーション

ISUCON 2013 予選レギュレーション

参加者

予選参加者 (以下参加者) はチームでの登録とし、チームは2人もしくは3人での構成とする。

参加者は予選の第1日目、2日目のいずれかのみに参加することができる。

参加者は「一般枠」「学生枠」のいずれかに登録すること。

@acidlemon
acidlemon / fluent-configtest.rb
Created May 7, 2013 10:56
原始的なfluentd configtest
require 'rubygems'
require 'fluent/config'
obj = Fluent::Config.read(ARGV[0])
if obj then
print "config is OK\n"
else
print "config has some errors\n"