fork download
copy 
  1. (defun q (z) (cond ((null(cdr z)) (car z)) ((> (car z) (cadr z)) (q (cons(car z)(cddr z)))) (t (q (cdr z)))))
  2.  
  3.  			(q '(1 2 3 4 5))
Success #stdin #stdout #stderr 0.02s 9456KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
Warning: reserving address range 0x80000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later!
Memory dump:
  0x8000000000 - 0x80000bffff
  0x1538b6800000 - 0x1538b6ae4fff
  0x1538b6c15000 - 0x1538b6c39fff
  0x1538b6c3a000 - 0x1538b6dacfff
  0x1538b6dad000 - 0x1538b6df5fff
  0x1538b6df6000 - 0x1538b6df8fff
  0x1538b6df9000 - 0x1538b6dfbfff
  0x1538b6dfc000 - 0x1538b6dfffff
  0x1538b6e00000 - 0x1538b6e02fff
  0x1538b6e03000 - 0x1538b7001fff
  0x1538b7002000 - 0x1538b7002fff
  0x1538b7003000 - 0x1538b7003fff
  0x1538b7080000 - 0x1538b708ffff
  0x1538b7090000 - 0x1538b70c3fff
  0x1538b70c4000 - 0x1538b71fafff
  0x1538b71fb000 - 0x1538b71fbfff
  0x1538b71fc000 - 0x1538b71fefff
  0x1538b71ff000 - 0x1538b71fffff
  0x1538b7200000 - 0x1538b7203fff
  0x1538b7204000 - 0x1538b7403fff
  0x1538b7404000 - 0x1538b7404fff
  0x1538b7405000 - 0x1538b7405fff
  0x1538b74e8000 - 0x1538b74ebfff
  0x1538b74ec000 - 0x1538b74ecfff
  0x1538b74ed000 - 0x1538b74eefff
  0x1538b74ef000 - 0x1538b74effff
  0x1538b74f0000 - 0x1538b74f0fff
  0x1538b74f1000 - 0x1538b74f1fff
  0x1538b74f2000 - 0x1538b74fffff
  0x1538b7500000 - 0x1538b750dfff
  0x1538b750e000 - 0x1538b751afff
  0x1538b751b000 - 0x1538b751efff
  0x1538b751f000 - 0x1538b751ffff
  0x1538b7520000 - 0x1538b7520fff
  0x1538b7521000 - 0x1538b7526fff
  0x1538b7527000 - 0x1538b7528fff
  0x1538b7529000 - 0x1538b7529fff
  0x1538b752a000 - 0x1538b752afff
  0x1538b752b000 - 0x1538b752bfff
  0x1538b752c000 - 0x1538b7559fff
  0x1538b755a000 - 0x1538b7568fff
  0x1538b7569000 - 0x1538b760efff
  0x1538b760f000 - 0x1538b76a5fff
  0x1538b76a6000 - 0x1538b76a6fff
  0x1538b76a7000 - 0x1538b76a7fff
  0x1538b76a8000 - 0x1538b76bbfff
  0x1538b76bc000 - 0x1538b76e3fff
  0x1538b76e4000 - 0x1538b76edfff
  0x1538b76ee000 - 0x1538b76effff
  0x1538b76f0000 - 0x1538b76f5fff
  0x1538b76f6000 - 0x1538b76f8fff
  0x1538b76fb000 - 0x1538b76fbfff
  0x1538b76fc000 - 0x1538b76fcfff
  0x1538b76fd000 - 0x1538b76fdfff
  0x1538b76fe000 - 0x1538b76fefff
  0x1538b76ff000 - 0x1538b76fffff
  0x1538b7700000 - 0x1538b7706fff
  0x1538b7707000 - 0x1538b7709fff
  0x1538b770a000 - 0x1538b770afff
  0x1538b770b000 - 0x1538b772bfff
  0x1538b772c000 - 0x1538b7733fff
  0x1538b7734000 - 0x1538b7734fff
  0x1538b7735000 - 0x1538b7735fff
  0x1538b7736000 - 0x1538b7736fff
  0x557b46219000 - 0x557b46309fff
  0x557b4630a000 - 0x557b46413fff
  0x557b46414000 - 0x557b46473fff
  0x557b46475000 - 0x557b464a3fff
  0x557b464a4000 - 0x557b464d4fff
  0x557b464d5000 - 0x557b464d8fff
  0x557b46ace000 - 0x557b46aeefff
  0x7ffe9aeb6000 - 0x7ffe9aed6fff
  0x7ffe9af99000 - 0x7ffe9af9cfff
  0x7ffe9af9d000 - 0x7ffe9af9efff
https://ideone.com/ZDgaU4
language:
Common Lisp (clisp 2.49.92)
created:
5 days 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!