I
Size: a a a
I
AH
let test<'a> (xs: 'a seq) =
let e = xs.GetEnumerator()
seq {
while e.MoveNext() do
yield seq { yield e.Current }
}
[|Error: Enumeration already finished.;....let test<'a> (xs: 'a seq) =
seq {
use enum = xs.GetEnumerator()
while enum.MoveNext() do
yield seq { yield enum.Current }
}
I
let test<'a> (xs: 'a seq) =
seq {
use enum = xs.GetEnumerator()
while enum.MoveNext() do
yield seq { yield enum.Current }
}
AH
I
AH
AH
AH
I
((
let test<'a> (xs: 'a seq) =
seq {
use enum = xs.GetEnumerator()
while enum.MoveNext() do
yield seq { yield enum.Current }
}
let batchSplit<'a> n (xs: 'a seq) =
seq {
use enum = xs.GetEnumerator()
let mutable i = 0;
while enum.MoveNext() do
yield seq {
yield enum.Current
i <- 0
while i < (n - 1) && enum.MoveNext() do
i <- i + 1
yield enum.Current
}
}
((
((
((
AH
I
((
((
_ seq array