17042009 work life

PDCAと陰陽

会社で資料をつくる時にはplan-do-check-actなPDCAサイクルを引き合いに出すことが多いのだけど、本当は陰陽マークのほうが好みだ。

yinyang

do-checkは陽でact-planは陰

陽の部分は効率化の対象になりやすく陳腐化しやすいけど、陰の部分は内に向かい経験により高いところを目指せる。

そしてヒトはdarkcoreに向かう

ProductName Warlords Rising
Future Phrophecies
Beatservice / ￥ 2,422 (2005-11-29)


16042009 perl Vox

Vox用のクライアント

Config::Pitとエディタが立ち上がるように変更した。

サービスのURIを知るためにwgetしたらつながらなくてあせったが--auth-no-challengeオプションを入れて解決

#!/opt/local/bin/perl

use XML::Atom::Client;
use XML::Atom::Entry;
use constant NS_DC => 'http://purl.org/dc/elements/1.1/';
use File::Temp;
use File::Slurp;
use Path::Class;
use Config::Pit;

my $vox = "kzfm.vox.com";
my $title = "";
my $content = "";
my $category = "life";

my $config = pit_get($vox, require => {
        "username" => "your username on vox",
        "password" => "your password on vox",
        "postURI"  => "your potURI"
                       });


my $f = File::Temp->new();
close $f;
my $t = file($f->filename)->stat->mtime;
system $ENV{EDITOR}, $f->filename;
if ($t == file($f->filename)->stat->mtime) {
 print STDERR "No changes.";
} else {
 my @lines = read_file($f->filename);
 $title = shift @lines;
 $content = join "", @lines
}

die "content not found\n" unless $content;

my $api = XML::Atom::Client->new;
$api->username($config->{username});
$api->password($config->{password});

my $entry = XML::Atom::Entry->new;
$entry->title($title);
$entry->content($content);
my @tags = split /,/, $category;
my $dc = XML::Atom::Namespace->new( dc => NS_DC );
foreach my $tag (@tags) {
 $entry->add( $dc, 'subject', $tag);
}

my $EditURI = $api->createEntry($config->{postURI}, $entry);
print $api->errstr if $api->errstr;

15042009 chemoinformatics Python

pybelでRECAP

pybelでのRECAP実装が投稿されたもようだが、実際はopenbabelバインディングでの実装なのかな。

あとで試す。

ProductName オープンソースで始めるゲノム・プロテオーム・メタボローム解析
樋口 千洋
オーム社 / ￥ 6,090 ()
在庫あり。

14042009 lisp

シンボル、オブジェクト、シニフィエ、シニフィアン

自分で実装しながら、オブジェクトとシンボルはシニフィエ、シニフィアンの関係みたいだなぁと思ってたわけだが、既にそういう話はあった

シニフィアンのほうをいじくればesotericなlispが出来るのであろう。それは括弧でくくらなくても良くて、例えば二次元平面に描画された円で囲まれた図形がS式となってもよいのかも。その場合泡のような絵がlispプログラムになるのか。

ProductName Rubyで作る奇妙なプログラミング言語 ~Esoteric Language~
原 悠
毎日コミュニケーションズ / ￥ 2,814 ()
在庫あり。

14042009 perl lisp

perlでread-eval-print-loop

クォートされたS式を受け取って文字列を返すものをつくってみた。

use Term::ReadLine;
my $term = new Term::ReadLine 'Simple LISP REPL';
my $prompt = "CL-USER> ";
my $OUT = $term->OUT || \*STDOUT;

while ( defined ($_ = $term->readline($prompt)) ) {
  my $res = $_;
  warn $@ if $@;
  $res =~ s/^\'//;
  print $OUT $res, "\n" unless $@;
}

実行

$ perl s.pl
CL-USER> '(+ 1 2)
(+ 1 2)
CL-USER>

という手抜き。

だが、Readerを実装して処理させれば良いのであろう。

13042009 music

Junior / Royksopp

今回はエモーショナル度は若干低めだが、安定してたので、まぁまぁよかったが、、、、

ProductName ジュニア
ロイクソップ
EMI MUSIC JAPAN(TO)(M) / ￥ 2,500 (2009-03-18)
在庫あり。

ライブだとかなりよくなるんじゃないかな。行きたいなぁ富士ロック。娘が3歳にしてロックに目覚めてくれれば教育の一環としてしょうがなくついていくところなんだけどなぁ。

というわけで今はDepeche Modeの新譜が気になるのであった。

ProductName サウンズ・オブ・ザ・ユニバース デラックス盤(DVD付)
デペッシュ・モード
EMIミュージックジャパン / ￥ 3,500 (2009-04-22)
近日発売　予約可

13042009 chemoinformatics q-chem

システムバイオロジー的な世界観

ちょっと来月の頭に講演をしなきゃいけなくなったので、色々と考えていたら 、僕のシステムバイオロジー的な世界観というものは、古代インドの宇宙観にわりと近いのではないかという結論に達した。

world

  • 臓器は生体を支え
  • 細胞は臓器を支え
  • タンパク質は細胞を支え
  • ゲノム（核酸）はタンパク質を支える

つまり、ゲノムは蛇であり、量子化学的世界とはこの世の全てを取り巻くトラパーの波であり、真理なのであった。

ProductName システムバイオロジーの展開―生物学の新しいアプローチ (Springer reviews)

シュプリンガー・フェアラーク東京 / ￥ 4,200 ()
在庫あり。

ProductName 交響詩篇エウレカセブン DVD-BOX (初回限定生産)

バンダイビジュアル / ￥ 52,500 (2009-03-27)


13042009 perl macbook

CPAN::Mini::Growl入れた

CPAN::Mini::Growlを入れてみた。

CPAN::Mini::Growl

12042009 English life

日本文化を英語で紹介する事典

面白いのでちょこちょこと読んでる。

ProductName 日本文化を英語で紹介する事典
杉浦 洋一,ジョン・K ギレスピー
ナツメ社 / ￥ 2,079 ()
在庫あり。

パラパラめくって目についたところを読むのがいい感じ。

一方、「日本語が亡びるとき」は読み飽きてしまったのであった。

ProductName 日本語が亡びるとき―英語の世紀の中で
水村 美苗
筑摩書房 / ￥ 1,890 ()
在庫あり。

年末ばあさんが遊びに来た時に欲しそうにしてたので5月の連休にでも帰った時にあげようかな。こういうネタはあんま興味ないことに気がついた。

12042009 life

Bamboo+Inkscapeが快適

娘とお絵描きをして遊ぶために買ったんだけど、最近はメモをとるのに使っている。難点をいえば、USBのケーブルが邪魔。どうにかならんもんかね。

ProductName WACOM Bamboo Fun CTE-450/W0

ワコム / ￥ 13,629 (2007-09-14)
在庫あり。

Inkscapeが便利

list

参考