Question

5. Define a LISP function MONTH-INTEGER which takes as argument a symbol that should be the name of a month, and which returns the number of the month. For example, (MONTH-INTEGER MARCH) 3 and (MONTH-INTEGER JUNE) 6. If the argument is not a symbol that is the name of a month, the function should return the symbol ERROR. E.g., (MONTH-INTEGER C) ERROR, (MONTH-INTEGER 7) ERROR ( MONTH-INTEGER 'QUOTE)-> ERROR, and ( MONTH-INTEGER "(MAY))-> ERROR. 6. Define a LISP function SCORE->GRADE which takes a single argument, s, and returns a symbol according to the following scheme: #290 87Ss<90 A 83Ss<87 B 80 s<83 B 77$s<80 B 3 Ss<77 C 705s<73 C 60S$<70 D s<60 If the argument s is not a number then the function should return NIL Examples: (SCORE->GRADE 86.3)B+ (SCORE->GRADE 106)A (SCORE->GRADE-10.1)F SCORE->GRADE 59.9)F (SCORE->GRADE 83) B+ (SCORE->GRADE 74) SCORE->GRADE 67)D SCORE->GRADE (86.3NIL (SCORE->GRADE 'DOG)NIL C+ SCORE->GRADE 87.0)A-

Answer 1

5)

(defun getmonth (monthname)

(case monthname

(JANUARY (print "1"))

(FEBRUARY (print "2"))

(MARCH (print "3"))

(APRIL (print "4"))

(MAY (print "5"))

(JUNE (print "6"))

(JULY (print "7"))

(AUGUST (print "8"))

(SEPTEMBER (print "9"))

(OCTOBER (print "10"))

(NOVEMBER (print "11"))

(DECEMBER (print "12"))

(otherwise '(ERROR))

))

6)

(defvar *marks*)
(defun fun(marks))
(setq marks(read))

if(>= marks 90)
(format t"A~%")

(if (and (>= *marks87* ) (<= *marks* 90) )
(format t "A-~%")

(if (and (>= *marks83* ) (<= *marks* 87) )
(format t "B+~%")

(if (and (>= *marks80* ) (<= *marks* 83) )
(format t "B~%")

(if (and (>= *marks77* ) (<= *marks* 80) )
(format t "B-~%")

(if (and (>= *marks73* ) (<= *marks* 77) )
(format t "C+~%")

(if (and (>= *marks70* ) (<= *marks* 73) )
(format t "C~%")

(if (and (>= *marks60* ) (<= *marks* 70) )
(format t "D~%")

(otherwise format t "NIL")