How to splitting/partition a list to some sub-list with same length?

Hi Dave,

Here is the example code:

procedure(divideList(l n "lx")
  let((newlist sublist)
    cond(
      (n>length(l) warn("divideList: n must be less than the list length\n"))
      (t
        for(count 1 length(l)
	  sublist = cons(nth(count-1 l) sublist)
	  when(zerop(mod(count n))
	    newlist = cons(reverse(sublist) newlist)
	    sublist = nil
	  ); when
	); for
	reverse(newlist)
      )
    ); cond
  ); let
); procedure divideList

A version that isn't O(n^2) - I think it's O(n) - and also doesn't require any list reversals:

procedure(CCFdivideList(lst n "lx")
  let((opList subList (pos 0))
    foreach(elem lst
      subList=tconc(subList elem)
      pos++
      when(zerop(mod(pos n))
        opList=tconc(opList car(subList))
        subList=nil
      )
    )
    when(subList
      opList=tconc(opList car(subList))
    )
    car(opList)
  )
)

Thank you both. 

I will try the codes. 

Thank you both. 

I will try the codes.