24 lines
804 B
Common Lisp
24 lines
804 B
Common Lisp
|
(setq *print-case* :downcase)
|
||
|
|
|
||
|
|
(format t "Hello there, what is your name? ~%")
|
||
|
|
(defvar *name* (read))
|
||
|
|
|
||
|
|
(defun greetings (name)
|
||
|
|
(format t "Nice to meet you ~a, i'm emacs. ! ~%" name)
|
||
|
|
(format t "How is your day? ~%")
|
||
|
|
(defvar how (read))
|
||
|
|
(defparameter good 'good)
|
||
|
|
(defparameter bad 'bad)
|
||
|
|
|
||
|
|
(if (eq how good)
|
||
|
|
(progn
|
||
|
|
(format t "I'm glad to hear that your day was ~a, ~a! ~%" how name)
|
||
|
|
(format t "I hope you continue to have a ~a day! Till next time! ~%" how)))
|
||
|
|
(if (eq how bad)
|
||
|
|
(progn
|
||
|
|
(format t "I'm sorry to hear that your day was ~a, ~a... ~%" how name)
|
||
|
|
(format t "I hope your day is better next time, ~a. ~%" name)))
|
||
|
|
(format t "That's interesting to hear, ~a. Let's aim for a good day next time! ~%" name))
|
||
|
|
|
||
|
|
(greetings *name*)
|