fork download
copy 
  1. (defun f756 (s)
  2.   (loop for c across s
  3. 		for i upfrom 0
  4. 		if (evenp i)
  5. 		collect c into even
  6. 		else
  7. 		collect c into odd
  8. 		finally (format t "~{~c ~}~%~{ ~c~}~%" even odd)))
  9.  
  10. (f756 "123456789")
  11. (f756 "The earth turns around the sun.")
Success #stdin #stdout 0.03s 10552KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1 3 5 7 9 
 2 4 6 8
T e e r h t r s a o n   h   u . 
 h   a t   u n   r u d t e s n
https://ideone.com/r2ES2Q
language:
Common Lisp (clisp 2.49.92)
created:
10 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!