ascending

[murali]

2. Write a function called reverse, of one argument which
is a list, which returns the items in the list in reverse order,
For example,
(reverse '(a b d))
should return: (d b a)

[I X Code X 1]

I know he didn't post any code, but I wanted practice so I wrote it anyway.

Code: Select all

(defun my-reverse (list)
  (let ((x nil))
    (loop for i in list do
          (push i x)
          finally (return x))))

Code: Select all

COMMON-LISP-USER>
(my-reverse '(a b d))

(D B A)

Note: To be a true reverse function it will need to work with strings, "hello", and vectors/arrays, #(1 2 3 4); mine does not. You can try to figure that out on your own.