roduto cartesiano lento de múltiplas sequências (sequência de sequência
Você pode sugerir uma maneira mais simples e clara de escrever essa funçã
let cartesian_product sequences =
let step acc sequence = seq {
for x in acc do
for y in sequence do
yield Seq.append x [y] }
Seq.fold step (Seq.singleton Seq.empty) sequences