fork download
copy 
  1. ; your code goes here
  2. (defun same-parity (n list)
  3.   (loop for x in list
  4.      with parity = (rem n 2)
  5.      if (= (rem x 2) parity)
  6.      collect x))
  7.  
  8. (defvar x (list 1 2 3 4 5 6 7 8 9 10))
  9.  
  10. (print (same-parity 3 x))
  11. (print (same-parity 2 x))
  12.  
Success #stdin #stdout 0s 10472KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
(1 3 5 7 9) 
(2 4 6 8 10)
https://ideone.com/E6DZkH
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!