2010-06-20から1日間の記事一覧

ファイル読み込み

Scheme で指定したファイルを読み込む方法を考えてみた。 (define (readfile filepath) (let ((port (open-input-file filepath))) (let loop ((contents "") (c (read-char port))) (if (eof-object? c) (begin (close-input-port port) contents) (loop (s…

リストの最後にアトムを追加したい

リストにアトムを追加したい場合: gosh> (cons 1 '(2 3)) (1 2 3) という感じにできるんだけど、やりたいのは std::vector で言うところの: std::vector<int> v; v.push_back(2); v.push_back(3); v.push_back(1); // [2, 3, 1] という順序 であり、java.util.V</int>…