Reputation: 785
On occasion I take some time to play with Scala, whose mix of features appeals to me despite an inability to use it in my own work (thus far). For kicks I decided to try the first few 99 Haskell Problems in the most generic way possible — operating on and returning any kind of applicable collection. The first few questions weren’t too difficult, but I find myself utterly stymied by flatten
. I just can’t figure out how to type such a thing.
To be specific about my question: is it possible to write a type-safe function that flattens arbitrarily-nested SeqLike
s? So that, say,
flatten(List(Array(List(1, 2, 3), List(4, 5, 6)), Array(List(7, 8, 9), List(10, 11, 12))))
would return
List(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12): List[Int]
? Note that this isn’t quite the same question as in the Haskell and Scala problem sets; I’m trying to write a function that flattens not heterogeneous lists but, rather, homogeneous-but-nested sequences.
Searching the web I found a translation into Scala of that question, but it operates on and returns a List[Any]. Am I correct that this would require some kind of type recursion? Or am I making this out to be harder than it is?
Upvotes: 12
Views: 2215
Reputation: 67280
The following works in Scala 2.10.0-M7. You will need to add extra cases for Array
support, and perhaps refine it to have more specific output collection types, but I guess it can all be done starting from here:
sealed trait InnerMost {
implicit def innerSeq[A]: CanFlatten[Seq[A]] { type Elem = A } =
new CanFlatten[Seq[A]] {
type Elem = A
def flatten(seq: Seq[A]): Seq[A] = seq
}
}
object CanFlatten extends InnerMost {
implicit def nestedSeq[A](implicit inner: CanFlatten[A])
: CanFlatten[Seq[A]] { type Elem = inner.Elem } =
new CanFlatten[Seq[A]] {
type Elem = inner.Elem
def flatten(seq: Seq[A]): Seq[inner.Elem] =
seq.flatMap(a => inner.flatten(a))
}
}
sealed trait CanFlatten[-A] {
type Elem
def flatten(seq: A): Seq[Elem]
}
implicit final class FlattenOp[A](val seq: A)(implicit val can: CanFlatten[A]) {
def flattenAll: Seq[can.Elem] = can.flatten(seq)
}
// test
assert(List(1, 2, 3).flattenAll == Seq(1, 2, 3))
assert(List(Seq(List(1, 2, 3), List(4, 5, 6)), Seq(List(7, 8, 9),
List(10, 11, 12))).flattenAll == (1 to 12).toSeq)
Upvotes: 13
Reputation: 52681
It seems like the right thing to do is just call .flatten
the right number of times:
scala> val x = List(Array(List(1, 2, 3), List(4, 5, 6)), Array(List(7, 8, 9), List(10, 11, 12)))
x: List[Array[List[Int]]] = List(Array(List(1, 2, 3), List(4, 5, 6)), Array(List(7, 8, 9), List(10, 11, 12)))
scala> x.flatten.flatten
res0: List[Int] = List(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12)
Since Scala is typed, you always know ahead of time how deep the nesting goes for the specific variable. Since you know this ahead of time, there's not much value in handling arbitrary structure as if you were unsure of how many times .flatten
needed to be called.
Upvotes: 4
Reputation: 67838
You are facing the same problems they are describing in the Haskell solution: There is no heterogenous List
in Scala. Luckily you can follow the exact same path they are going in the Haskell solution.
Define some data type which can be nested:
sealed trait NestedList[A]
case class Elem[A](a: A) extends NestedList[A]
case class AList[A](a: List[NestedList[A]]) extends NestedList[A]
And then write a generic flatten function for that type:
def flatten[A](l: NestedList[A]): List[A] = l match {
case Elem(x) => List(x)
case AList(x :: xs) => flatten(x) ::: flatten(AList(xs))
case AList(Nil) => Nil
}
or even
def flatten[A](l: NestedList[A]): List[A] = l match {
case Elem(x) => List(x)
case AList(x) => x.flatMap(flatten)
}
Usage:
flatten(AList(Elem(1) :: Elem(2) :: AList(Elem(3) :: Nil) :: Nil))
Of course, we could also have added this as a method directly to the NestedList
trait.
Upvotes: 3