aoc-2017-day3-part2-memory-sequence.fs

let memoryValues = 
    seq {
        yield 1
        let rec loop i (ring : int []) =
            seq {
                yield! ring |> Seq.ofArray
                let nring = generateRing i ring
                yield! loop (i+1) nring
            }
        yield! loop 2 [|1;2;4;5;10;11;23;25|] 
    }