Развернуть набор [Установить [String]] в декартово произведение в Scala

Question

У меня есть следующий набор множеств. Я не знаю заранее, как долго это будет.

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

Я хотел бы расширить его в декартово произведение:

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

Как бы вы сделать это?

Answer 1

Я думаю, что я понял, как это сделать.

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

Хороший вопрос. Вот один из способов:

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

пришел после Batle;), а другой один:

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

Answer 4

Расширяя @Patrick's answer. Теперь это более общее и ленивее:

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

Имея это поленитесь позволяет экономить пространство, так как вы не храните экспоненциально много элементов в расширенном наборе; вместо этого вы создаете их на лету. Но, если вы действительно хотите полный набор, вы можете получить его следующим образом:

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

Answer 5

Расширяя dsg's answer, вы можете написать это более ясно (я думаю), таким образом, если вы не возражаете выделанной функция:

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

Другой вариант (немного длиннее, но гораздо более удобным для чтения):

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) } 

Использование:

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

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