fork download
  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
stdin
Standard input is empty
stdout
(1 2 3 4)  => 1, 2, 3 and 4
(1 2 3)    => 1, 2 and 3
(1 2)      => 1 and 2
(1)        => 1
()         =>