CS 365 Homework 4 Answers

9-12

(defun remassoc (p a)
  (cond ((null a) nil)
        ((eq p (caar a)) (cdr a))
        (t (cons (car a) (remassoc p (cdr a)) )) ))

10-6

(defun append-red (L)
  (if (null L)
      nil
      (append (car L) (append-red (cdr L)) )) )

10-10

(defun count (L)
  (cond ((null L) 0)
        ((atom L) 1)
        (t (plus (count (car L)) (count (cdr L)) )) ))

10-14

(defun filter (p x)
  (cond ((null x) nil)
        ((p (car x)) (cons (car x) (filter p (cdr x)) ))
        (t (filter p (cdr x)) )) )

10-19

(defun pairlis (u v w)
  (append (mapcar2 'list u v) w))

10-35

mean = (divide sign) ° [/+, length]

Send mail to Bruce MacLennan / MacLennan@cs.utk.edu