05042009 perl
この週末から、Mooseでlispを実装してみるということをはじめた。もともとやさしい Lisp の作り方 by Java and by C#を見ながらeclipseでいじってたんだけど、コードが省略されてたり、ライブラリのコードがなかったりしたので、それだったら元のページを参考にしながらMooseで書いてみようかなと(ユニットテストとかもperlのほうが慣れてるし)。
module-starterはそのままではモジュールの追加ができなくて、どんどん新しいモジュールを足していく場合には不便なのでModule-Starterのカスタマイズを参考にモジュールの追加が出来るようにした。快適になった。
MooseというのはMOPの上に乗っかっているのでLispの方向に向かっているのかなぁと思っていたのだけど、実際に書いてみると型の制約とかRoleとかはJavaっぽいなぁとも思った。
CLOSもガリガリ書いてみないとダメだなぁ。
酒のいわせで。
さっぱりとした口当たりで、すいすいいけてしまう。これが純米酒で1.9Kとはコストパフォーマンスが高い。気がついたら週末でほとんど飲んでしまった。平日は禁酒でもしようか。
ただ、純米の割にはどっしり感がないというか。香り少なめな感じ
他にも久礼という銘柄が入ったようで、こっちも気になるところ。
04042009 life
ぶらぶらと花見を兼ねて散歩
そういえば、犬の写真を撮ってないなぁと、帰ってきてからシャッター押した。
04042009 Arduino
とりあえずLEDを点灯させるサンプルを。
arduinoは差すとこのカッチリ感がないので、接続されてるのかちょっと不安になる。
03042009 as
インテルCPUのGNUユーザへ
分厚い
実用SSH 第2版―セキュアシェル徹底活用ガイド02042009 life
明日到着予定。
でも、まわりに持っている人がいなさそうなのが残念なところ。Fuji Poken Nightとかはないもんか、、、、
安西先生、ハイタッチがしたいです。みたいな。
このままでは、U隊長に一個贈って、家の中で名刺交換することになりそう。
schemeでレジスタ計算機を書いたら、次はparrotというレジスタ仮想機械、(そしてPerl6へみたいな。)
さて、ダウンロードしてきたソースコードについてたexamples/pir/euclid.pirというのがユークリッドの互除法のサンプルなのでこれを使う。
pirというのはParrot Assembly Language(pasm)よりも抽象度の高い言語らしい。
モダンPerl入門 (CodeZine BOOKS)
シューティングウォッチ(Amazon.co.jpオリジナル「シュウォッチ着せ替えシール：高橋名人の冒険島Ver」同梱)
Arduino Duemilanove 328
Arduinoをはじめよう
プログラミングの力を生み出す本―インテルCPUのGNUユーザへ.sub 'example' :main
$I1 = 96
$I2 = 64
print "Algorithm E (Euclid's algorithm)\n"
e1: $I4 = mod $I1, $I2
e2: unless $I4 goto done
e3: $I1 = $I2
$I2 = $I4
branch e1
done: print "The greatest common denominator of 96 and 64 is "
print $I2
print ".\n"
.end
pasmに変換
parrot --output=euclid.pasm euclid.pir
これで、アセンブリコードが吐き出されたので見てみる。
example:
set I0, 96
set I1, 64
print "Algorithm E (Euclid's algorithm)\n"
e1:
mod I2, I0, I1
e2:
unless I2, done
e3:
set I0, I1
set I1, I2
branch e1
done:
print "The greatest common denominator of 96 and 64 is "
print I1
print ".\n"
end
ふむふむ。