fork(1) download 
  1. (defparameter s '(-1 2 8 -9 -2 -3 -6 -10 -8 5 7 9 7))
  2.  
  3. (format t "~S~%"
  4.         (loop for n in s
  5.               if (oddp n)
  6.                 collect n into odds
  7.               else
  8.                 collect n into evens
  9.               finally (return (append odds evens))))
  10.  
  11. (format t "~S~%"
  12.         (stable-sort (copy-seq s)
  13.                      (lambda (a b) (and (oddp a) (evenp b)))))
  14.  
  15. (format t "~S~%"
  16.         (append (remove-if #'evenp s)
  17.                 (remove-if #'oddp s)))
  18.  
Success #stdin #stdout 0.01s 25272KB
comments (?)
stdin 
Standard input is empty
stdout 
(-1 -9 -3 5 7 9 7 2 8 -2 -6 -10 -8)
(-1 -9 -3 5 7 9 7 2 8 -2 -6 -10 -8)
(-1 -9 -3 5 7 9 7 2 8 -2 -6 -10 -8)
https://ideone.com/7FvGqn
language:
Common Lisp (sbcl 1.4.16)
created:
6 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!