Yioop - PHP Search Engine

-- Nov 17 In-Class Exercise Thread

((resource:20211117_185052.jpg|Resource Description for 20211117_185052.jpg))

-- 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)))

-- 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 (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))

-- 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 n)
   (car (fibonacci-list n)))

 (define (fibonacci-list n)
  (if (or (= n 0)
          (= n 1))
    (list 1 1)
    (let ((so-far (fibonacci-list (- n 1))))
      (cons (+ (car so-far) (car (car so-far))) so-far))))

(Edited: 2021-11-17)

(define (fib n) (car (fibonacci-list n))) (define (fibonacci-list n) (if (or (= n 0) (= n 1)) (list 1 1) (let ((so-far (fibonacci-list (- n 1)))) (cons (+ (car so-far) (car (car so-far))) so-far))))

-- Nov 17 In-Class Exercise Thread

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

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

-- Nov 17 In-Class Exercise Thread

(define fib-list '())

 (define (fib input)
     (cond ((< input 0) null)
     	((= input 0) (set! fib-list (cons (cons 0 1) fib-list)) 1)
         ((= input 1) (set! fib-list (cons (cons 1 1) fib-list)) 1)
         ((> input 1) 
         	(+ (fib (- input 1)) (fib (- input 2)))
         )))

(define fib-list '()) (define (fib input) (cond ((< input 0) null) ((= input 0) (set! fib-list (cons (cons 0 1) fib-list)) 1) ((= input 1) (set! fib-list (cons (cons 1 1) fib-list)) 1) ((> input 1) (+ (fib (- input 1)) (fib (- input 2))) )))

-- Nov 17 In-Class Exercise Thread

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

(Edited: 2021-11-17)

<nowiki> (define (fib n) (car (list_temp n))) (define (fib_list n) (cond ((< n 2) (list 1 1)) (else (let ((list_temp (fib_list (- n 1)))) (cons (+ (car list_temp) (car (cdr list_temp))) list_temp))))) </nowiki>

-- 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)))