Write a lisp program

I have provided a program in Lisp that satisfies the given problem statement.

Statement given,

A function that generates a random day of the week, then displays a message saying that "Today is ... and
tomorrow will be ..".

For this purpose, create a global variable before the function containing the days of the week as a list

‘Then use the built-in function random first to generate a number between 0 and 6 (including). The expression
(random) by itsclf generates a random integer. You can call it with one parameter to return a value within

the range from 0 to the value of the parameter-1. For example, (random 10) will retum a value befween 0
and 9.

Next, use the number generated at the previous step to retrieve the symbol for the day of the week from the
list. For that you can either copy your own function element -1 from the previous homework, or use the
built-in e1t. Here's an example of a call to elt which evaluates to 3:

(elt "(123 4) 2) ; returns 3
We want the name of the day to appear capitalized. For this, extract the symbol-name of the day first, then

apply the built-in function capitalize to it. Use the result in the prinC function call, and do the same thing
for the next day.

‘Make the function return true (t) instead of the last thing it evaluates, to avoid seeing the message printed
more than once.

Step by stepSolved in 2 steps with 1 images