; ex 2.4 ; ex 2.5 (define (power x n) (define (power-iter r c) (if (= c 0) r (power-iter (* r x) (- c 1)))) (power-iter 1 n)) (define (cons a b) (lambda (m) (m a b))) (define (car z) (z (lambda (p q) (power 2 p)))) (define (cdr z) (z (lambda (p q) (power 3 q))))
; 2.1.3 (define (cons x y) (define (dispatch m) (cond ((= m 0) x) ((= m 1) y) (else (error "error")))) dispatch) (define (car z) (z 0)) (define (cdr z) (z 1))
티스토리에 소스를 올리는게 넘 불편해서 github repository를 하나 만들었습니다. 앞으로 소스 코드는 여기에 올리는게 어떨지? 이참에 분산 VCS인 git에 대해서도 알아보는건? ^^
커밋을 하려면 github에 가입하고도, 몇 가지 준비가 필요하니 한번 논의해 보시죠.