Slicker quicksort in coffee

gistfile1.coffee

#adapted from The Joy of Clojure, second edition, page 132-135
quicksort = (array) ->
  split = (work) ->
    [part, parts...] = work
    if part?
      if part.length
        [pivot, xs...] = part
        split([
          (x for x in xs when x < pivot),
          pivot,
          (x for x in xs when x >= pivot)
        ].concat(parts))
      else
        [].concat(part, split(parts))
    else
      []

  split [array]

console.log quicksort([200, 27, 12, 1, 1, 4, 57, 3, 2, 220, 220])