Question

In LISP write one function using length that gets the last atom in a list and another function that triples all the elements in a list (triple-value '(1 2 3 4 5)) so the result should be (1 8 27 64 125)

Answer 1

Code to find the last element from the list

(defun last_element(input_list)
(loop for i in input_list
do (setf last i))
)
(defvar last 0)
(last_element '(1 2 3 4))
(princ "Last element of the list is: ")
(write last)

Input Snippet

Output

Code to find the triple of all elements of the list

(defun triple-value(input_list)
(loop for i in input_list
do (setf i (* i (* i i)))
(setf cubed (append cubed (list i)))
)
)
(defvar cubed (list))
(triple-value '(1 2 3 4))
(princ "The Tripled List is : ")
(write cubed)

Input

Output

Please let me know if you have any queries in the comments below. Thank you!