The King's Museum

ソフトウェアエンジニアのブログ。

2019-11-01から1ヶ月間の記事一覧

Scheme 手習い(4)

第5章:*すごい* 星がいっぱいだ 元ネタは『2001 年宇宙の旅』のボーマン船長のセリフらしい。 そういえばそんなセリフもあったな。 rember* (define (rember* a l) (cond [(null? l) '()] [(atom? (car l)) (cond [(eq? a (car l)) (rember* a (cdr l))] […

Scheme 手習い(3)

第4章は数字に関する関数をどうやって再帰的に書くかという話が中心。 第4章:数字宛てゲーム add1/sub1 (define (add1 n) (+ n 1)) (define (sub1 n) (- n 1)) 数に 1 を足す関数と数から 1 をひく関数。 +/- (define (+ n m) (cond [(zero? m) n] [else (…

Scheme 手習い(2)

第3章:偉大なる cons rember (define (rember a lat) (cond [(null? lat) '()] [(eq? (car lat) a) (cdr lat)] [else (cons (car lat) (rember a (cdr lat)))])) rember は remove member の略。 ラット(すべての要素がアトムのリスト)内で一致した最初…

(c) The King's Museum