29級で停滞中。
goxiなんていうのがあんのね。
そういえば農業SNSあぐりってのに入ってたんだけどスパム多すぎで退会したんだった。
open pneで簡単にSNSがつくれるようになるのはいいんだけど、一方で簡単にスパム汚染されてしまうようになってくると、もうSNSじゃなくていいじゃんみたいな方向に行ってしまうんだよねぇ。
29級で停滞中。
goxiなんていうのがあんのね。
そういえば農業SNSあぐりってのに入ってたんだけどスパム多すぎで退会したんだった。
open pneで簡単にSNSがつくれるようになるのはいいんだけど、一方で簡単にスパム汚染されてしまうようになってくると、もうSNSじゃなくていいじゃんみたいな方向に行ってしまうんだよねぇ。
やっと26級。頭で解いて上がっていくというよりは、同じ問題がリピートしてきて、覚えてるから数をこなせば昇級していく感じ。
つまるところあんまり嬉しくない。
来週の京都出張の新幹線の中でもやりまくる予定。
24042009 music
ヤバイ、ヤバすぎ!
Life Is...
Bass Is Maternal楽しみになってきた。
もちろんRichie Hawtinも。
ラッキー。早速5時前に起きてチャリで偵察に行ってきた。
結構遠い。

ぬー、草ぼうぼうだ。週末に鍬とかシャベルとか買って耕しにいく。
23042009 Ruby
気になる本。
やさしい Lisp の作り方 by Java and by C#を参考に書いてみる。
READ-PRINT-LOOPまでのものを動かしてみる
$ perl moosp.pl
Moosp> (1 2 3 4)
(1 2 3 4)
Moosp> (e r t)
(E R T)
Moosp> (2 . 3)
(2 . 3)
Moosp> (defun plus (a b) (+ a b))
(DEFUN PLUS (A B) (+ A B))
コード
package Moosp;
use Moose;
use Moosp::Env;
use Moosp::Reader;
use Term::ReadLine;
our $VERSION = 0.01;
sub run {
my $self = shift;
my $term = new Term::ReadLine 'Simple LISP REPL';
my $prompt = "Moosp> ";
my $OUT = $term->OUT || \*STDOUT;
while ( defined ($_ = $term->readline($prompt)) ) {
my $reader = Moosp::Reader->new();
my $sexp = $reader->readFromString($_);
warn $@ if $@;
print $OUT $sexp->serialize(), "\n" unless $@;
}
}
__PACKAGE__->meta->make_immutable;
no Moose;
1; # End of Moosp
moosp.pl
#!/usr/bin/env perl
use lib "./lib";
use Moosp;
Moosp->new->run();
富士の大淵の花として有名らしい(が、U隊長の知り合いの富士市民はみんな聞いたこともないと言ってた)ミツバツツジを見に行きたいというので車で出かけた。正直僕は毎日見ているので見飽きた。
桜のように花が咲いた後に葉っぱがでるので、まとめて咲いてるとかなり奇麗。

気になっていた蕎麦屋。

中では農作業かなんかを終えたおじいちゃんが一人で焼酎やってた。のどかな感じ。蕎麦は山芋をつなぎに使っていて、のどごしというよりは噛み応えがある感じ。キョウザンボウの田舎を細くした感じか。辛汁もだしが効いていて好み。

ワラビもつけてくれた。うまかった。

うどんはのどごしが良くて、評判だったのと、さしみこんにゃくがおいしかったので帰りに買って帰った。

きわだ路の近くの大淵二小のそば。いい感じのたたずまい。

外に用意されているテラスみたいなとこで、のんびりできそう。


ちょっと甘めだけど、美味しかった。
MooseX::Singletonでuseしたクラスが継承している場合instanceで呼ばれたオブジェクトはスーパークラスのメソッドを呼べないという挙動ではまった。
package Foo;
use Moose;
sub p { return "XXX" }
package Sng;
use MooseX::Singleton;
extends 'Foo';
package main;
my $sng_new = Sng->new();
warn $sng_new->p();
my $sng_instance = Sng->instance;
warn $sng_instance->p();
実行
$ perl ms.pl
XXX at ms.pl line 15.
Can't locate object method "instance" via package "Sng" at ms.pl line 17.
version
$ perl -MMooseX::Singleton\ 999
MooseX::Singleton version 999 required--this is only version 0.14.
予約した