Expandir un conjunto [Establecer [cadena]] en un producto cartesiano en Scala

Question

Tengo el siguiente conjunto de conjuntos. No sé de antemano cuánto tiempo será.

val sets = Set(Set("a","b","c"), Set("1","2"), Set("S","T")) 

me gustaría ampliarlo en un producto cartesiano:

Set("a&1&S", "a&1&T", "a&2&S", ..., "c&2&T") 

¿Cómo hacer eso?

Answer 1

Creo que descubrí cómo hacerlo.

def combine(acc:Set[String], set:Set[String]) = for (a <- acc; s <- set) yield { 
    a + "&" + s 
} 

val expanded = sets.reduceLeft(combine) 

expanded: scala.collection.immutable.Set[java.lang.String] = Set(b&2&T, a&1&S, 
    a&1&T, b&1&S, b&1&T, c&1&T, a&2&T, c&1&S, c&2&T, a&2&S, c&2&S, b&2&S) 

Answer 2

Buena pregunta. Aquí está una manera:

scala> val seqs = Seq(Seq("a","b","c"), Seq("1","2"), Seq("S","T"))     
seqs: Seq[Seq[java.lang.String]] = List(List(a, b, c), List(1, 2), List(S, T)) 

scala> val seqs2 = seqs.map(_.map(Seq(_))) 
seqs2: Seq[Seq[Seq[java.lang.String]]] = List(List(List(a), List(b), List(c)), List(List(1), List(2)), List(List(S), List(T))) 

scala> val combined = seqs2.reduceLeft((xs, ys) => for {x <- xs; y <- ys} yield x ++ y) 
combined: Seq[Seq[java.lang.String]] = List(List(a, 1, S), List(a, 1, T), List(a, 2, S), List(a, 2, T), List(b, 1, S), List(b, 1, T), List(b, 2, S), List(b, 2, T), List(c, 1, S), List(c, 1, T), List(c, 2, S), List(c, 2, T)) 

scala> combined.map(_.mkString("&"))    
res11: Seq[String] = List(a&1&S, a&1&T, a&2&S, a&2&T, b&1&S, b&1&T, b&2&S, b&2&T, c&1&S, c&1&T, c&2&S, c&2&T) 

Answer 3

se produjo después de la Batle;) pero otro:

sets.reduceLeft((s0,s1)=>s0.flatMap(a=>s1.map(a+"&"+_))) 

Answer 4

Ampliando @Patrick's answer. Ahora es más general y más perezoso:

def combine[A](f:(A, A) => A)(xs:Iterable[Iterable[A]]) = 
    xs.reduceLeft { (x, y) => x.view.flatMap {a => y.map(f(a, _)) } } 

tener que ser perezoso le permite ahorrar espacio, ya que no almacena los exponencialmente muchos elementos en el conjunto ampliado; en cambio, los generas sobre la marcha. Pero, si realmente se desea que el conjunto completo, todavía puede conseguir de esta manera:

val expanded = combine{(x:String, y:String) => x + "&" + y}(sets).toSet 

Answer 5

Ampliando dsg's answer, se puede escribir con más claridad (creo) de esta manera, si no te importa el curry función:

def combine[A](f: A => A => A)(xs:Iterable[Iterable[A]]) = 
    xs reduceLeft { (x, y) => x.view flatMap { y map f(_) } } 

Otra alternativa (un poco más largo, pero mucho más fácil de leer):

def combine[A](f: (A, A) => A)(xs:Iterable[Iterable[A]]) = 
    xs reduceLeft { (x, y) => for (a <- x.view; b <- y) yield f(a, b) } 

Uso:

combine[String](a => b => a + "&" + b)(sets) // curried version 

combine[String](_ + "&" + _)(sets)    // uncurried version