flatMapSublists?

gistfile1.scala

def flatMapSublists[A,B](ls: List[A])(f: (List[A]) => List[B]): List[B] = {
  def sublists[A](ls: List[A]): List[List[A]] = {
    ls match {
      case Nil => List(List())
      case x :: xs => ls :: sublists(xs)
    }
  }
  sublists(ls).flatMap(f)
}