明日のゼミの課題だった，Ｃを解析して，ニーモニック風のコードを出すプログラムがとりあえず完成． しかしまるで手続き型のよう．しかもときどきperlかのようなところもある． しかも”コンパイルエラー”は未実装． とまぁ問題点を挙げればきりがない．しか…

(define (count-chars filename) (call-with-input-file filename (lambda (in) (let loop ((c (read-char in)) (count 0)) (cond [(eof-object? c) count] [else (write c) (loop (read-char in) (+ count 1))]))))) (count-chars "read-char.scm") (define…

今日自由劇場でやっている「ひかりごけ」を見てきた．劇団四季にはキャッツを見に行ってから興味を持ち，ミュージカルではなく劇も見てみたいと思って行った． 講演期間は，一週間しかなく，今日が千秋楽だった．ひかりごけの初演は1955年で，四季発足は1953…

スラムダンク『あれから10日後-』完全版作者: 井上雄彦出版社/メーカー: フラワー発売日: 2009/04/10メディア: 大型本購入: 26人 クリック: 404回この商品を含むブログ (86件) を見る 今日受け取ったので，先ほど読んだ． 値段がやけに高いなーと思っていた…

(define (delete-1 elt lis . options) (if (member elt lis) (let-optionals* options ((cmp-fn equal?)) (define (loop lis) (cond [(null? lis) '()] [(cmp-fn elt (car lis)) (cdr lis)] [else (cons (car lis) (loop (cdr lis)))])) (loop lis)) lis)) …

(define (my-any-pred . pred) (lambda (x) (define (my-any-pred-core preds x) (cond [(null? #?=preds) #f] [((car preds) x) #t] [else (my-any-pred-core (cdr preds) x)])) (my-any-pred-core pred x))) (define (my-any-pred . pred) (lambda (x) (co…