scala compress, pack test functions

gistfile1.scala

object TestProgram {

  def compress1[T](lst: Seq[T]) = {
    lst.foldRight(Seq[T]()) {
      (n: T, compressed: Seq[T]) => if (compressed.headOption == Option(n)) compressed else n +: compressed
    }
  }

  def compress2[T](lst: Seq[T]): Seq[T] = lst match {
    case first :: second :: rest if (first == second) => compress2(second +: rest)
    case first :: rest => first +: compress2(rest)
    case Nil => Nil
  }

  def pack[T](lst: Seq[T]) = {
    lst.foldRight(Seq[Seq[T]]()) {
      (n: T, packed: Seq[Seq[T]]) => packed match {
        case first :: rest if (first.headOption == Option(n)) => (n +: first) +: rest
        case _ => Seq[T](n) +: packed
      }
    }
  }

  def main(args: Array[String]) = {
    val arr = List(1,1,1,1,1,1,1,2,2,3,3,2,4,2,1)
    println(arr)

    println(compress1(arr))

    println(compress2(arr))

    println(pack(arr))
    println(pack(arr).flatten == arr)
  }
}