> (f f). procedure application: expected procedure, given: 2; arguments were: 2> 이런 에러가 난다. (f f)-> (f 2)-> (2 2) 가 되어 위의 에러가 난다.

[CODE](define (filter-accumulate filter combiner null-value term a next b)  (define (iter a result)    (if (> a b)        result        (iter (next a) (combiner result                                  (if (filter a)   ...

[CODE]; Recursive(define (accumulate combiner null-value term a next b)  (if (> a b)      null-value      (combiner (term a) (accumulate combiner null-value term (next a) next b)))) ; Iterative(define (accumulate combiner null-value term a next b)  (define (iter a result)    (if (> a b)       ...

a. [CODE]; Recursive(define (product-r term a next b)  (if (> a b)      1      (* (term a) (product-r term (next a) next b)))) ; Iterative(define (product term a next b)  (define (iter a result)    (if (> a b)        result        (iter...

[CODE](define (sum term a next b)  (define (iter a result)    (if (> a b)        result        (iter (next a) (+ result (term a)))))  (iter a 0)) (define (term a) a)(define (next a) (+ a 1))[/CODE]

[CODE](define (integral f a b n)  (define (h) (/ (- b a) n))  (define (y k) (f (+ a (* k (h)))))  (define (integral-function i)    (* (/ (h) 3) (* (y i) (cond ((or (= i 0) (= i n)) 1)                 ...

Miller-Rabin test 가 잘 이해 안되서 풀다 말았습니다. 나중에 찬찬히 다시 봐야겠습니다.

(define (square x) (* x x)) (define (expmod base exp m)   (cond ((= exp 0) 1)         ((even? exp)          (remainder (square (expmod base (/ exp 2) m))                     m))        ...

요즘 스타리그 경기를 왕왕 봅니다. 오프닝에 나오는 노래가 몇번 듣다 보니 귀에 익어버려서 찾아봤습니다. Boys Like Girls 라는 그룹의 The Great Escape 라는 노래였네요.[youtube http://www.youtube.com/watch?v=x5VdYqd6CdA&rel=1](플레이가 안되면 여기로.. http://www.youtube.com/watch?v=x5VdYqd6CdA)가사를 보니 대충 술 먹고 한 판 잘 놀아보자 -_- 로 요약될 것 같던데... 검색하다 보니 역대 스타리그 오프닝 모음집도 찾았습니다.http://blog.naver.com/soullaphael/90026173861 질레트배 이후로 오프닝이...

[CODE] (define (expmod base exp m)   (cond ((= exp 0) 1)         ((even? exp)          (remainder (square (expmod base (/ exp 2) m)                     m))         (else         ...