fork download
copy 
  1. (defun in-list (array)
  2. 	(cond
  3. 		((null (cdr array)) array)
  4. 		(t (list (car array) (in-list (cdr array))))
  5. 	)
  6. )
  7.  
  8. (defun out-list (array)
  9. 	(cond
  10. 		((null (cdr array)) array)
  11. 		(t (cons (car array) (out-list (cadr array))))
  12. 	)
  13. )
  14.  
  15. (setf a (in-list '(a b c d)))
  16. (print a)
  17. (print (out-list a))
Success #stdin #stdout #stderr 0.02s 9488KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
(A (B (C (D)))) 
(A B C D)
stderr
copy 
Warning: reserving address range 0x80000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later!
Memory dump:
  0x8000000000 - 0x80000bffff
  0x153500600000 - 0x1535008e4fff
  0x153500a15000 - 0x153500a39fff
  0x153500a3a000 - 0x153500bacfff
  0x153500bad000 - 0x153500bf5fff
  0x153500bf6000 - 0x153500bf8fff
  0x153500bf9000 - 0x153500bfbfff
  0x153500bfc000 - 0x153500bfffff
  0x153500c00000 - 0x153500c02fff
  0x153500c03000 - 0x153500e01fff
  0x153500e02000 - 0x153500e02fff
  0x153500e03000 - 0x153500e03fff
  0x153500e80000 - 0x153500e8ffff
  0x153500e90000 - 0x153500ec3fff
  0x153500ec4000 - 0x153500ffafff
  0x153500ffb000 - 0x153500ffbfff
  0x153500ffc000 - 0x153500ffefff
  0x153500fff000 - 0x153500ffffff
  0x153501000000 - 0x153501003fff
  0x153501004000 - 0x153501203fff
  0x153501204000 - 0x153501204fff
  0x153501205000 - 0x153501205fff
  0x15350133e000 - 0x153501341fff
  0x153501342000 - 0x153501342fff
  0x153501343000 - 0x153501344fff
  0x153501345000 - 0x153501345fff
  0x153501346000 - 0x153501346fff
  0x153501347000 - 0x153501347fff
  0x153501348000 - 0x153501355fff
  0x153501356000 - 0x153501363fff
  0x153501364000 - 0x153501370fff
  0x153501371000 - 0x153501374fff
  0x153501375000 - 0x153501375fff
  0x153501376000 - 0x153501376fff
  0x153501377000 - 0x15350137cfff
  0x15350137d000 - 0x15350137efff
  0x15350137f000 - 0x15350137ffff
  0x153501380000 - 0x153501380fff
  0x153501381000 - 0x153501381fff
  0x153501382000 - 0x1535013affff
  0x1535013b0000 - 0x1535013befff
  0x1535013bf000 - 0x153501464fff
  0x153501465000 - 0x1535014fbfff
  0x1535014fc000 - 0x1535014fcfff
  0x1535014fd000 - 0x1535014fdfff
  0x1535014fe000 - 0x153501511fff
  0x153501512000 - 0x153501539fff
  0x15350153a000 - 0x153501543fff
  0x153501544000 - 0x153501545fff
  0x153501546000 - 0x15350154bfff
  0x15350154c000 - 0x15350154efff
  0x153501551000 - 0x153501551fff
  0x153501552000 - 0x153501552fff
  0x153501553000 - 0x153501553fff
  0x153501554000 - 0x153501554fff
  0x153501555000 - 0x153501555fff
  0x153501556000 - 0x15350155cfff
  0x15350155d000 - 0x15350155ffff
  0x153501560000 - 0x153501560fff
  0x153501561000 - 0x153501581fff
  0x153501582000 - 0x153501589fff
  0x15350158a000 - 0x15350158afff
  0x15350158b000 - 0x15350158bfff
  0x15350158c000 - 0x15350158cfff
  0x5558fb495000 - 0x5558fb585fff
  0x5558fb586000 - 0x5558fb68ffff
  0x5558fb690000 - 0x5558fb6effff
  0x5558fb6f1000 - 0x5558fb71ffff
  0x5558fb720000 - 0x5558fb750fff
  0x5558fb751000 - 0x5558fb754fff
  0x5558fbcc9000 - 0x5558fbce9fff
  0x7fffada52000 - 0x7fffada72fff
  0x7fffada82000 - 0x7fffada85fff
  0x7fffada86000 - 0x7fffada87fff
https://ideone.com/5B55LA
language:
Common Lisp (clisp 2.49.92)
created:
23 hours 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!