Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon. Entire thread

[SICP] Ex 1.30 / 1.31

Name: Anonymous 2008-02-10 7:46

Here's what I have



; Ex 1.30

(define (sum term a next b)

  (define (iter a result)

    (if (> a b)

        result

        (iter (next a) (+ result (term a)))))

  (iter a 0))

; Ex 1.31

(define (product term a next b)

  (define (iter a result)

    (if (> a b)

        result

        (iter (next a) (* result (term a)))))

  (iter a 1))



(define (fac n)

  (product (lambda (x) x) 1 (lambda (x) (+ x 1)) n))

Am i rite?

Name: Anonymous 2010-12-21 4:31

Name: Anonymous 2011-02-03 3:28

Name: Anonymous 2013-03-18 18:54

Is it fine if I do all the SICP exercises in x86 ASM?

Newer Posts

[SICP] Ex 1.30 / 1.31

1 Name: Anonymous 2008-02-10 7:46

41 Name: Anonymous 2010-12-21 4:31

42 Name: Anonymous 2011-02-03 3:28

43 Name: Anonymous 2013-03-18 18:54

Name: Anonymous 2008-02-10 7:46

Name: Anonymous 2010-12-21 4:31

Name: Anonymous 2011-02-03 3:28

Name: Anonymous 2013-03-18 18:54