fork(8) download
copy 
  1.  (DEFUN MY_REVERSE(lst)
  2.  (COND ((NULL lst) NIL)
  3.        ((ATOM (CAR LST)) (APPEND (MY_REVERSE (CDR lst)) (LIST(CAR LST))) )
  4.        (1 (APPEND  (MY_REVERSE (CDR lst)) (LIST (MY_REVERSE (CAR LST)))) )
  5.  )
  6. )
  7.  
  8. (PRINT (MY_REVERSE '(1 2 3 4 5)))
Success #stdin #stdout 0.02s 10584KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
(5 4 3 2 1)
https://ideone.com/PuyOd
language:
Common Lisp (clisp 2.49.92)
created:
12 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!