fork download
copy 
  1. (defun f(l n &optional(p(floor(length l)n))(i 1))(if(= i n)(list l)(cons(subseq l 0 p)(f(subseq l p)n p(+ i 1)))))
  2. (format t "~A~C~C" (f (read) (read)) #\return #\newline)
Success #stdin #stdout 0s 10464KB
comments (?)
stdin
copy 
(1 2 3 4 5 6 7)
3
stdout
copy 
((1 2) (3 4) (5 6 7))
https://ideone.com/Ob2FnU
language:
Common Lisp (clisp 2.49.92)
created:
9 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!