2 つの口座の残高を交換する exchange は，直列化しとかないとヒドいことになる． (define (exchange account1 account2) (let ((difference (- (account1 'balance) (account2 'balance)))) ((account1 'withdraw) difference) ((account2 'deposit) differ…

タイミングダイアグラムは激しくメンドいので略．

これが make-account なわけだけど，'withdraw とか 'deposit とかのメッセージが送られてくる毎に，毎回直列化された関数を生成するようになってる． (define (make-account balance) (define (withdraw amount) (if (>= balance amount) (begin (set! bala…

朝起きたら iPhone で 3G ネットワークが使用できなくなっていました．Apple の初期ロットにはバグが多いというのは有名な話ではあるのですけども，いや，もしかしたらここいらの地域で電波が弱いに違いない．これはもう，電波の街秋葉原に繰り出してやれば…

あちこちで動作が軽快と絶賛発売中の iPhone なのですけど，どうも日本語入力はそこまで軽快じゃない感じがします．それがどうも，いつも遅いとかそういうわけじゃなく，バックグラウンドで表示されているコンテンツによっているみたい． たとえば，メモを取…