i110

## example.c
#include <stdlib.h>
#include <stdio.h>
#include <mruby.h>
#include <mruby/compile.h>

int main(void)
{
    mrb_state *mrb = mrb_open();

    mrbc_context *ctx = mrbc_context_new(mrb);

## gist:d61bb7f3a24510e0e637f7b4b7cc56db
(?:[吃唖妾跛躄]|(?:健全なる精神は健全なる身体に宿|(?:娘を片付|股に掛)け|将棋倒しにな|群盲象をなで|本腰を入れ|灸を据え|ずらか|婿をと|嫁にや|発狂す)る|(?:[屑床魚]|汲み取り|ゴミ|バタ|代書|八百|周旋|担ぎ|蛸部)屋|イ(?:ン(?:ディアン嘘つかない|チキ)|カサマ|タ公|モ)|盲(?:[人目縞]|蛇に怖じず|判を押す|愛する|滅法)?|馬(?:[丁喰]|鹿(?:でもチョンでも|チョンカメラ))|(?:[坑漁農鉱]|(?:線路)?工|潜水|雑役)夫|(?:(?:越後の米|まえ)つ|ぽん引|釣り書)き|エ(?:(?:スキモ|ディタ)ー|チゼンクラゲ)|ジ(?:(?:プシ|ュ)ー|ャ(?:ップ|リ))|チ(?:ャ(?:リンコ|ンコロ)|ョン|ビ)|女(?:[中傑工給]|の腐ったような|子供)|ブ(?:[スツ]|ラインドタッチ|タ箱)|狂(?:[う人女]|気(?:の沙汰)?)|(?:ダッチマ|ルンペ|ザギ|ナオ)ン|(?:皮[切被]|千摺|地回|首切)り|サ(?:ラ(?:ブレッド|金)|ツ)|精(?:神(?:分裂病|異常)|薄)|(?:[外芸非鮮]|半島|紅毛)人|(?:いちゃも|あらめ|運ちゃ)ん|(?:引かれ|労務|町医|障害)者|土(?:[人工方]|左衛門|建屋)|支那(?:[人竹]|料理|蕎麦)?|未(?:開(?:発国|人)|亡人)|落(?:ちこぼれ|とし前|人部落)|(?:すけこま|ほんぼ|犬殺)し|ア(?:イヌ系|メ公|ル中|カ)|ス(?:チュワーデス|ラム|ケ)|ポ(?:ッポー屋|コペン|リ公)|三(?:韓征伐|つ口|国人|助)|片(?:[目端肺親足]|手落ち)|(?:合いの|魔女っ|連れ)子|南(?:部の鮭の鼻まが>り|鮮)|が(?:っぷり四つ|ちゃ目)|ニ(?:コヨン|ガー|グロ)|パ(?:ーマ屋|クる|ン助)|ヤ(?:ンキー|バい|ー様)|不(?:可触民|治の病|具)|日(?:本のチベット|雇い)|気違い(?:に刃物|沙汰)?|特殊(?:学[校級]|部落)|か(?:さっかき|ったい)|オ(?:ールドミス|カマ)|タ(?:ケノコ医者|タキ)|(?:やさぐ|知恵遅)れ|(?:伊勢|河原)?乞食|ど(?:さ回り|ん百姓)|ゲ(?:ンナマ|ーセン)|人(?:[夫足]|非人)|低(?:脳児?|開発国)|小(?:[人僧]|使い)|(?:しらっ|うん)こ|(?:富山の三|露)助|お

## .aspell.en.pws
personal_ws-1.1 en 0
acl
addr
aead
aes
alpn
authz
aws
backend
backends

## bench.rb
require 'benchmark'
require "./cidr.rb"

def generate_random_ip(cidr=false)
    4.times.map{rand(256)}.join(".") + (cidr ? "/" + (rand(8) + 16).to_s : "")
end

def generate_random_suite(count, cidr_count, ip_count)
    count.times.map{
        {

## gist:28abb5692ee1ed2bbb0a
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use feature 'say';
use Benchmark qw(cmpthese);

say $];

my $pattern = '((?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?))';

## gist:901b94e7a86911c31930
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use feature 'say';
use Benchmark qw(cmpthese);

say $];

my $pattern = '((?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?))';

## gist:bc8ca9d68ad9da62001a
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use Benchmark qw(cmpthese);

my $pattern = '((?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?))';
my $regexp = qr/$pattern/;
my $ipv4 = '192.168.1.1';
cmpthese(0, +{

## gist:169a0baa8cb46acf7220
<?php

function h_tom($decimal){
     $result = array();
     $digit = floor(log($decimal,2))+1;

     for($i = 0 ; $i < $digit ; $i++)
          $result[$i] = $decimal&(1<<$i) ? 1:0;

     return $result;

## my.pl
#!/usr/bin/env perl

use strict;
use warnings;
use Time::HiRes qw(gettimeofday tv_interval);

use Data::Validator;

my $start = [ gettimeofday ];
{
	#include <stdlib.h>
	#include <stdio.h>
	#include <mruby.h>
	#include <mruby/compile.h>

	int main(void)
	{
	mrb_state *mrb = mrb_open();

	mrbc_context *ctx = mrbc_context_new(mrb);
	personal_ws-1.1 en 0
	acl
	addr
	aead
	aes
	alpn
	authz
	aws
	backend
	backends
	require 'benchmark'
	require "./cidr.rb"

	def generate_random_ip(cidr=false)
	4.times.map{rand(256)}.join(".") + (cidr ? "/" + (rand(8) + 16).to_s : "")
	end

	def generate_random_suite(count, cidr_count, ip_count)
	count.times.map{
	{
	#!/usr/bin/env perl
	use strict;
	use warnings;
	use utf8;
	use feature 'say';
	use Benchmark qw(cmpthese);

	say $];

	my $pattern = '((?:(?:25[0-5]\|2[0-4][0-9]\|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]\|2[0-4][0-9]\|[01]?[0-9][0-9]?))';
	<?php

	function h_tom($decimal){
	$result = array();
	$digit = floor(log($decimal,2))+1;

	for($i = 0 ; $i < $digit ; $i++)
	$result[$i] = $decimal&(1<<$i) ? 1:0;

	return $result;