Sons Of Babylon

深夜作業ご苦労様です。YMDです。

というわけで、ちまたで話題のServersMan @ VPSに移行しました。
月500円でroot権限がもらえる素敵なサービスです。

安いですが作業してる分だととても快適に使えてます。おすすめ

なお、このポストが見えているということは、新サーバーにて稼働しているブログをご覧になっているということです。

今まで夜中にアクセスがあったりすると突然机の上のPCが唸りを上げ始めたりしてびっくりしていたのですが、これで快適な生活が得られたらいいなと。

もう２回目なのですがWordPressの移行なんだかんだで２時間くらいかかってしまった。

YMDです。

今週一週間↓にいい意味でも悪い意味でもハマってました。
あなたのスキルで飯は食えるか？　史上最大のコーディングスキル判定

いけるだろ、と思ってやったら全然できず、最初Javascriptでやってたのをあきらめてperl持ち替えてからはなんとか４時間くらいでできたのではないかと。

全然プログラマーじゃ食えないということか・・・orz　今からがんばるからいいんだ・・

完成してみると最初にやろうとしていた方向で間違ってなかったのに（というかあとちょっとだった）、「あーもうこの方法めんどくさすぎる、やめやめ！」ってなってしまったのが最大の敗因でした。

面倒くさい、この言葉があなたの人生からどれだけのものを奪っているか想像したことがありますか・・・

僕は子供の頃２メートル先にある雑誌をとるのがめんどくさくてもっと遠くにいる弟に「それとって」とかいって良く喧嘩をする、そんな人生を歩んできました。

面倒くさい、という言葉によって思考停止して目の前の具体的な問題にシャッターを下ろす、そういう人生を歩んでいたらいけないと思います。

そういうことをこの問題から学ぶことができました。

というわけで、メンバーのみなさんはブログを書いてください。なお、右の欄がついにおれのポストだけになったので、永年ビール無料券が発行されました。よろしくお願いします。

↓回答　九連宝燈判定したからあってる・・と思う。input_count配列がなんかエレガントでない気がする

#!/usr/bin/perl
use strict;

my $input = $ARGV[0];

$input =~ /^[1-9]{13}$/ or die "invalid input\n";

my @input_arr = split('', $input);

# 各牌の枚数
my @input_count;

foreach my $i (@input_arr) {
    if(!$input_count[$i]) {
	$input_count[$i] = 1;
    } else {
	$input_count[$i] += 1;
    }
}

&seek($input, $output, @input_count);

sub seek {
    (my $str, my $out, my @count) = @_;

    # 残り一枚なら単騎待ち
    if (length($str) < 2)  {
	$out .= "[$str]";
	print "$out\n";
	return;
    } 
    
    # 1~9で始まるジュンツ、コーツを探す
    for (my $i=1; $i <= 9; $i++) {
	# その数字の牌がもうなければ次
	next if $count[$i] eq 0;
	
	my ($ch1, $ch1_index, $ch2, $ch2_index, $ch3, $ch3_index) = ($i, -1, -1, -1, -1, -1);

	# テンパイ判定
	if (length($str) == 4) {
	    $ch1_index = $ch2_index = -1;
	    $ch1_index = index($str, $ch1);
	    $ch2_index = index($str, $ch1, $ch1_index + 1);
	    if ($ch1_index > -1 && $ch2_index > -1) {
		my $machi;
		for (my $j=0; $j < length($str); $j++) {
		    $machi .= substr($str, $j, 1) 
			if $j ne $ch1_index && $j ne $ch2_index;
		}

		print "$out\($ch1$ch1\)\[$machi\]\n" if &isMachiValid($machi);
	    }
	}

	#カブリ防止のためより大きい数字か同じメンツ以外は追加しない。その判定用
	$out =~ /\((\d\d\d)\)$/;
	my $heaviness = $1;

	# コーツ
	$ch2 = $ch3 = $ch1;
	$ch1_index = index($str, $ch1);
	$ch2_index = index($str, $ch2, $ch1_index + 1) if $ch1_index >= 0;
	$ch3_index = index($str, $ch3, $ch2_index + 1) if $ch2_index >= 0;
	if ($ch3_index > -1
	    && $count[$ch2] > 0 && $count[$ch3] > 0
	    && $ch1 * 100 + $ch2 * 10 + $ch3 >= $heaviness) {
	    &seekNext($str, $out, \@count, 
		     $ch1, $ch2, $ch3,
		     $ch1_index, $ch2_index, $ch3_index) ;
	}

	$ch1_index = $ch2_index = $ch3_index = -1;
	# ジュンツ
	if ($ch1 < 8 ) {
	    $ch2 = $ch1 + 1;
	    $ch3 = $ch1 + 2;
	    $ch1_index = index($str, $ch1);
	    $ch2_index = index($str, $ch1 + 1);
	    $ch3_index = index($str, $ch1 + 2);
	    
	    if ($ch2_index > -1 && $ch3_index > -1
		&& $count[$ch2] > 0 && $count[$ch3] > 0
		&& $ch1 * 100 + $ch2 * 10 + $ch3 >= $heaviness) {
		&seekNext($str, $out, \@count, 
			  $ch1, $ch2, $ch3,
			  $ch1_index, $ch2_index, $ch3_index);
	    }
	}
    }
}

sub isMachiValid {
    my $machi = @_[0];
    return 1 if (length($machi) < 2);
    return 0 if (length($machi) > 2);

    my $ch1 = substr($machi, 0, 1);
    my $ch2 = substr($machi, 1, 1);
    ($ch1, $ch2) = ($ch2, $ch1) if $ch1 > $ch2;

    return 1 if ($ch1 + 1 eq $ch2|| $ch1 + 2 eq $ch2 || $ch1 eq $ch2);
    return 0;
}

sub seekNext {
    (my $str, my $out, my $count_ref,
     my $ch1, my $ch2, my $ch3, 
     my $ch1_index, my $ch2_index, my $ch3_index) = @_;
    my @count = @$count_ref;

    my $nextstr = "";
    for (my $i=0; $i < length($str); $i++) {
	$nextstr .= substr($str, $i, 1) if $i ne $ch1_index 
	    && $i ne $ch2_index 
	    && $i ne $ch3_index;
    }

    my $nextout = "$out\($ch1$ch2$ch3\)";
    
    my @nextcount = @count;
    $nextcount[$ch1] -= 1; $nextcount[$ch2] -= 1; $nextcount[$ch3] -= 1;

    &seek($nextstr, $nextout, @nextcount);
}

お疲れ様です。YMDです。

先日髪切ろっかな〜とか思いながら、80’s Romance(NewWave系のすごいディスクガイド。必携)を片手にYouTubeを見ていたところ一聴した瞬間に以下の２曲にやられてしまって、一気に髪の毛を短くしました。もう全然エモじゃないです。ごめんなさい。


“Collapsing New People” Fad Gadget

こんな危険な映像がテレビライブで流れていたとは、80年代は恐ろしい時代です。1:11秒あたりでボーカルに虐待を受けながら懸命に弾きつづけるキーボードの人が健気。


“Headhunter” Front 242

“F”のコーナーを読んでいたことがばればれですが、これもカッコいい！すごいシビアな雰囲気かと思いきや卵一気食いしてたり女の人があくびしてたりするのがまたよい。このモヒカンと上の中間くらいになりましたマイヘアー。


以上インダストリアルの最初の頃のバンド達でした。古い、とかいう前に、この人達があったからNINがあってLinkinParkがあってAttack! Attack!があるという事実は是非これを機に墓場まで持って帰っていただきたいと切に思っています。

YMDです。

Twitterしてますか？　僕のつぶやきはtwitter.com/satyでチェックできます。

Twitterってなんか多分５年もたたないうちに消滅する気がしないんでもないですが、そのとき今が旬だとばかりにつぶやき始めている有名人とか企業人とかどんな顔するんだろう、どんな風にフェードアウトするんだろう、とちょっと人ごとながら不安に思う昨今ですが、とりあえず今はなんとなく楽しい感じになっているので、１０年後に「Twitterとかあったなァ」などと思い出すためにやっておくことをお勧めします。

で、最近ムーミン谷の名言Botをフォローし始めました。(http://twitter.com/moomin_valley)
↓がとても印象に残ったので、みなさんと共有したいと思いまして、書いてます。

「ぼくたちは、ひとつのことだけにかまけている。幼いころ、きみは、なんにでも関心をもって、なんでも知りたがったろう？いま、きみは、なにかになりたがってるだけだ – フレデリクソン」

柄にもなくPS3買ったです。

最初のソフトは一部でPS3史上最高と謳われ、また一方で究極のマゾゲーと賞賛される「デモンズソウル」ってARPGにしました。

こんなかんじ。

油断するとドラクエでいうところのスライムに瞬殺され、一度生身から死ぬとボスを倒すまで体力が半分の状態でのプレイを余儀なくされるという硬派な仕上がり。

しかも買った瞬間「発売一周年記念暗黒週間」とかいって敵が軒並み強くなっていたという手厚い歓迎の元、大ハマリしています。

ただ、ちゃんとキャラを鍛えればクリアできるし、あまり理不尽さを感じない（死んでも常に自分のせい）とてもいい難易度に仕上がっていて、楽しい作品だなーと思いながらやっと２匹目のボスを倒しました。

開発元はFROM SOFTWARE。人生の中で10本ない全面クリアしたゲームの中の一つであるところのARMORED COREの開発元です。なんか相性がいいみたいです。

この部屋の　段ボール箱　消えたから　１月２６日はダンボール記念日

YMDです。

この２年間、辛いとき悲しいとき嬉しいとき悔しいときいつも隣にいてくれたあいつが今日部屋を出ていきました。

参考画像：

ダンボールです。あとむき出しだった衣装ケースも買い換えて廃棄しました。

部屋が狭くなるから・・・とかいって家具を買うのは控えていたんですが、なんか我慢ならなくなって年末年始をから一気に勢いをつけて部屋の構造改革を行ってきた結果のマイルストーンの一つが今日。ダンボール記念日。

部屋が片付いたら大学の時の日記が出てきてついつい読んでしまったんですが、するとそこに「棚を買った。部屋が狭くなると思ったけど広くなった。嬉しい」って書いてありまして(
５年以上前)自分の成長性０っぷりに呆れるのを通り越してめまいがしました。

ま、つっても台所が今度はダンボールジャングルになっているわけですけど。まあ目をつむる。

作業机もできたのでバリバリバビロンにもいい影響がでるといいなーと思ってます。

参考画像：


無印のこれです。ニッセンとかの激安家具のファンだったんですけど値段以上の品質の差があるのでおすすめ。

というわけで落ち着いてブログを更新しながら音楽を聴いたりする余裕ができたら死蔵していたレコードからかっこいいのがたくさん出てきて。その中の一曲を紹介して締めます。

Rechenzentrum -- IBM


IBMって曲名がまずいいねｗ

はい、ブログの更新が遅れてごめんなさい。

今日は何の日でしょう？ニコニコ動画が出来た日ですか？　そうですけどTexas Burger発売日ですね。

マクドナルド信者の私は当然発売日に食べてきました。


ジャケはこんな感じ。

下段はクオーターパウンダー風の肉と、上段にはベーコンとフライドオニオンが挟まっていて、それにウィスキーっぽいバーベキューソースがかかってます。
たしかにテキサスっぽいちょっと埃っぽい感じがする味でした。大変おいしゅうございました。



ただセットで東京価格700円オーバーってのはちょっと挑戦し過ぎかなと思いました・・・

３月くらいまでにかけてNYやらなにやらいろいろ出るらしいです。楽しみですね★

仕事納めも終わりまして、すっかり年末ムードですね。

さて、1/26のライブではHagi脱退ライブということで会場が涙にくれる中、こっそりとDJでびうしました。


↑あまりの高速な曲さばきに写真にとらえられないYMD

やるまえは「もうDJとかどうでもいいからタンテ一個売ってクラシックロックだけきいて生きていこう」とおもっていたのですが、いざやると楽しかったので自主企画のときとかまたやりたいなとか勝手に思っています。

というわけで、今年の教訓は「やってみなけりゃわからない」

やってみないとわからないことは余りにもあってそれはやってないときにうだうだ考えてもしょうがないことなんだよね。

ということで来年はもういろいろ考えないでやってみよう、というテーマで過ごして行きたいと思ってます。

あと今年何度も頭に去来した言葉
「やってみせ　言って聞かせて　させて見せ　ほめてやらねば　人は動かじ」By 山本五十六。
別に部下もなにもいないんですが、自分とかバビロン的に。
ほめてくれるみなさんがいるからがんばれるんだなーと思ってます。今年もお世話になりました。

年の瀬に自分話ですいません。良いお年を★

UFO流行ってますね。

ノルウェーの空の謎の渦巻 12/9


ロシア 12/10


上のノルウェーのやつはミサイル実験だった説が濃厚らしい。

基本的に幽霊/UFO/UMAの類は根拠なく信じる/信じたい/でも見たことないのですが、
そういう冗談を言わない母が

「オレンジ色で巨大なものが車の上をバーっと飛んでった!」

と普通に話していたので、宇宙人の乗り物なのかなんなのかともかく、UFOはほぼ確いると思ってます。

ただ宇宙人より明らかに恐ろしいのは今年でウェンディーズが日本から消えるということですね。あの素晴らしいチリポテトがもう食べられないなんて・・・！ファック！

LAHAも書いてるけど大バビロン会議がありました。

今回はたまたま買った手帳くんが大活躍したので紹介します。



モレスキンていってまあ結構マニアが使ってる手帳ってイメージでちょっと高いのですが
使ってみるとつぼを抑えているというか 愛着が湧くんですよね。皮だからコップとかの水がついても平気だし。リングじゃないから書きやすい。

背表紙にポケットがついていて、そこにちっちゃい付箋を入れておくと、一行書きのメモの専用のページとか、買いたいCDリストのページとか作ってぴっと付箋しとくだけでだんだん自分専用のツールになっていって、うれしいし便利。

ユビキタスキャプチャーって言って思いついたことを何でも一冊にまとめてくっていうライフハックがあるんだけど、そういうふうなことを実践しようと、ベッドサイドやらいろんなところに連れていってます。

特にいいのは、ちょっとしたことを誰かに言いたくなった時ですね。メールするほどでもないし、会った時でいいや、みたいなことを書きなぐっとくと、頭がすっきりして安心できる。

書かなかったときは想定問答とかしちゃったり、いろいろ考えているうちにどうでもよくなったり、アイデアが古くてつまらないものになったりしますが、そういうのがなくなってよい。です。