3.9 3.10 3.11 3.12 3.13 3.14 3.15 3.16 3.17 #lang racket ; to use set-car! set-cdr! (require r5rs) (define (count-pairs lst) (let ((counted '())) (define (counter x) (if (or (not (pair? x)) (memq x counted)) 0 (begin (set! counted (cons x …

3.1 #lang racket (define (make-accumulator sum) (lambda (x) (set! sum (+ sum x)) sum)) (define A (make-accumulator 5)) ;test (A 10) (A 10) 3.2 #lang racket (define (make-monitored function) (let ((call-count 0)) (lambda (arg) (cond ((eq? a…

全部解けてから投稿しようと思ったが、後半が辛すぎた。 done is better than perfect ってことでとりあえずうｐ 2.77 パッケージ外へのインタフェースとして、 本文の complex-package では - add - sub - mul - div - make-from-real-imag - make-from-mag…

2.73 a else節では、 operator 抽出した演算子に対応した演算処理関数を呼び出し、 operands で抽出した式に適用している。 number, valiableについては、 operator で演算子を抽出できないので吸収できない。 b c get, put が標準関数にないので、3.3.3 の…

2.53 (list 'a 'b 'c) ;=> '(a b c) (list (list 'george)) ;=> '((george)) (cdr '((x1 x2) (y1 y2))) ;=> '((y1 y2)) (cadr '((x1 x2) (y1 y2))) ;=> '(y1 y2) (pair? (car '(a short list))) ;=> #f (memq 'red '((red shoes) (blue socks))) ;=> #f (mem…

まずは、何も言わず以下の動画を見てくれ。 Xperia Z5 Compact タッチ不具合 動画にあるとおり、昨日機種変更したXperia Z5 Compactにタッチパネルの不具合がある。 どうも、以下の不具合にぶつかった模様。 Xperia Z5 Compactのタッチパネル不具合、原因は…

2.17 #lang Racket (define (last-pair items) (if (null? (cdr items)) (car items) (last-pair (cdr items)))) 2.18 繰り返し (define (reverse items) (define (iter items result) (if (null? items) result (iter (cdr items) (cons (car items) result…

2.1 #lang racket (define (make-rat n d) (let ((g (gcd n d))) (cond ((< (* n d) 0) (cons (* -1 (abs (/ n g))) (abs (/ d g)))) (else (cons (abs(/ n g)) (abs(/ d g))))))) (define (add-rat x y) (make-rat (+ (* (numer x) (denom y)) (* (numer y)…

Exercise 1.29 ;h = (b-a)/n ;y_k=func(a+kh) ;sum = (y_0 + 4y_1 + 2y_2 + 4y_3 + ... + y_n) ; #lang Racket (define (simpthon a b func n) (* (/ (h a b n) 3) (sum-simpthon a b func 0 n))) (define (sum-simpthon a b func k n) (if (> k n) 0 (+ (co…

Exercise 1.9 (define (+ a b) (if (= a 0) b (inc (+ (dec a) b)))) (+ 4 5) (inc (+ 3 5)) (inc (inc (+ 2 5))) (inc (inc (inc (+ 1 5)))) (inc (inc (inc (inc (+ 0 5))))) (inc (inc (inc (inc 5)))) (inc (inc (inc 6)) (inc (inc 7) (inc 8) 9 再帰 (…

実はちょっと前からやっていたんだけど、長続きしないと恥ずかしいからアップするのを控えていた。 それなりに続いているし、このまま止まらないようにアップして自分を追い詰めることにした。 とりあえず1章から順番に。。。 Exercise 1.1 ​ 10 # -> 10 ​ (…

先週末に行ってきた勉強会。とてもタメになった。 が、なかなか本腰いれて取り組めないので、少しずつアップすることにした。 今回は午前中のcryptについて、理論面を整理。 実装は、きっとこのあとやる・・・はず。 問題 CSAW CTF 2014 – Crypto300 – feal.…