fork download
copy 
  1. (dotimes (i 5)
  2.   (let ((x (butlast (list 1 2 3 4) i)))
  3.     (format t "~:S~10T => ~{~@{~A~^~#,1^, ~}~^ and ~A~}~%" x x)))
  4.  
Success #stdin #stdout 0s 203840KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
(1 2 3 4)  => 1, 2, 3 and 4
(1 2 3)    => 1, 2 and 3
(1 2)      => 1 and 2
(1)        => 1
()         =>
https://ideone.com/6DcwO9
language:
Common Lisp (sbcl 1.4.16)
created:
5 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!