こういうの好きだ

「PHP処理系を3日で実装」がつぼったw

GNU版とFree BSD版のコード

lsのソースはGNU版などいろいろなバージョンがありますが，GNU版はインデントが合わなかったり各プラットフォーム対応のための#ifdefが多過ぎたりしてあまり読みやすくないので，Free BSD版をお勧めします。
http://gihyo.jp/dev/clip/01/orangenews/vol32/0004

確かに#ifdef多すぎて読みにくかったよ！

d:id:BigFatCat:20080410

ネットワーク越しにペアプログラミング

いいなぁ、ペアプロ…

計算機プログラムの構造と解釈 1.1.6 問題１

問題1.2

次の式を前置記法に翻訳せよ。


木を作って、なぞっていきました。

問題1.3

3つの数を引数としてとり、大きい2つの数の2乗の和を返す手続きを定義せよ。

(define (squares x) (* x x))
(define (sum-of-squares x y)
(+ (squares x) (squares y)))

(define (square-two-large-numbers a b c)
(cond ((> a b)
(if(> c b) (sum-of-squares a c) (sum-of-squares a b)))
((< a b)
(if(> c a) (sum-of-squares b c) (sum-of-squares b a)))))

これで動いたんですが、手続きの名前を決めるのが苦手で仕方ないっ!
限られた英単語で意味が通じるようにしないといけないから…
square-two-large-numbersはここから拝借しました。

Gauche

現在、「ハッカーと画家」の翻訳者である川合さんが作った処理系Gauche（ゴーシュ）を使わせてもらっています。

コマンドラインでは
gosh> (define a 3)
が正しく動作するのですが、test.scmを作成して、C-xC-eで評価すると・・・

Debugger entered--Lisp error: (void-function define)
(define a 3)
eval( (define a 3) )
eval-last-sexp-1(nil)
eval-last-sexp(nil)
call-interactively(eval-last-sexp)

うーん、なんだろ・・・

$gosh test.scm
だと上手くいくんだけどな・・・・

タイトル間違えてた

大体合ってるのが嫌すぎるw(元ネタはギャグ漫画日和)
http://netamichelin.blog68.fc2.com/blog-entry-3908.html

IntelのCPUを使っている場合はIPPを使うとOpenCVが高速になる

な、なんだってー