fork download
copy 
  1.  
  2. (defun set-link (a b)
  3.     (if (eq a nil)
  4.         b
  5.         (progn
  6.             (setf prev (cdr a))
  7.             (setf (cdr a) b)
  8.             (set-link prev a))))
  9.  
  10. (defun revert (list) 
  11.     (set-link list nil))
  12.  
  13. (print (revert '(a b c d e)))
Success #stdin #stdout 0s 10464KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
(E D C B A)
https://ideone.com/Ppgv2r
language:
Common Lisp (clisp 2.49.92)
created:
8 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!