Yioop - PHP Search Engine

-- Nov 17 In-Class Exercise Thread

 (define (flist n)
  (cond
    ((< n 2) (list 1 1))
    (else
     (let ((res-list (flist (- n 1))))
         (cons (+ (car res-list) (car (cdr res-list))) res-list)))))

 (define (fib n) (car (flist n)))

(define (flist n) (cond ((< n 2) (list 1 1)) (else (let ((res-list (flist (- n 1)))) (cons (+ (car res-list) (car (cdr res-list))) res-list))))) (define (fib n) (car (flist n)))

-- Nov 17 In-Class Exercise Thread

(define (fib-list n) (if (< n 2) (list 1 1) (let ((so-far (fib-list (- n 1)))) (cons (+ (car so-far) (car (cdr so-far))) so-far))) (define (fib n) (car fib-list n)))

<nowiki>(define (fib-list n) (if (< n 2) (list 1 1) (let ((so-far (fib-list (- n 1)))) (cons (+ (car so-far) (car (cdr so-far))) so-far))) (define (fib n) (car fib-list n)))</nowiki>

-- Nov 17 In-Class Exercise Thread

  (define (fibonacci-list n)
        (if (< n 2)
           (list 1 1)
            (let ((so-far (fibonacci-list (- n 1))))
              (cons (+ (car so-far) (car (cdr so-far))) so-far))))
  (define (fibonacci n) (car fibonacci-list n))

(define (fibonacci-list n) (if (< n 2) (list 1 1) (let ((so-far (fibonacci-list (- n 1)))) (cons (+ (car so-far) (car (cdr so-far))) so-far)))) (define (fibonacci n) (car fibonacci-list n))

-- Nov 17 In-Class Exercise Thread

 (define (fib n )
     (car(fib-list n)))

 (define (fib-list n)
     (if (< n 2)
     (list 1 1)
     (let ((so-far (fib-list(- n 1))))
         (cons (+(car so-far) (car (cdr so-far))) so-far))))

(define (fib n ) (car(fib-list n))) (define (fib-list n) (if (< n 2) (list 1 1) (let ((so-far (fib-list(- n 1)))) (cons (+(car so-far) (car (cdr so-far))) so-far))))

-- Nov 17 In-Class Exercise Thread

 
(define (fib-aux n)
  (if (< n 2)
    (list 1 1)
    (let ((so-far (fib-aux (- n 1))))
      (cons (+ (car so-far) (car (cdr so-far))) so-far)))) 
 
(define (fib n) (car fib-aux n))

<pre> (define (fib-aux n) (if (< n 2) (list 1 1) (let ((so-far (fib-aux (- n 1)))) (cons (+ (car so-far) (car (cdr so-far))) so-far)))) (define (fib n) (car fib-aux n)) </pre>

-- Nov 17 In-Class Exercise Thread

(define (fib-list n)

    (if (< n 2) (list 1 1)
       (let ((so-far (fib-list (- n 1))))
         (cons (+ (car so-far) (car (cdr so-far))) so-far)))

(define (fib n) (car fib-list n)))

(define (fib-list n) (if (< n 2) (list 1 1) (let ((so-far (fib-list (- n 1)))) (cons (+ (car so-far) (car (cdr so-far))) so-far))) (define (fib n) (car fib-list n)))