Base spreadsheet parsers on string columns

[HLWeil]

closes #389

[Freymaurer]

Lets say i have a sequence of header strings and a seq<seq> for table-body-values. Which functions must i use to generate a ArcTable? Are these findable? Do they exist in this state?

[HLWeil]

open ARCtrl.Spreadsheet

let headerStrings : string seq = ...
let rowStringSeqs : string seq seq = ...

let columns = 
    Seq.append [headerStrings] rowStringSeqs 
    |> Seq.transpose

let columnsList = 
    columns 
    |> Seq.toList
    |> List.map (Seq.toList)


let arcTable = ArcTable.composeColumns columnsList 

[Freymaurer]

open ARCtrl.Spreadsheet

let headerStrings : string seq = ...
let rowStringSeqs : string seq seq = ...

let columns = 
    Seq.append [headerStrings] rowStringSeqs 
    |> Seq.transpose

let columnsList = 
    columns 
    |> Seq.toList
    |> List.map (Seq.toList)


let arcTable = ArcTable.composeColumns columnsList 

love it!

[HLWeil]

But thinking about switching from list to array. Because I have quite a few .Item calls, which are painfully slow for lists.

[Freymaurer]

Would be fine with it 👍

[HLWeil]

open ARCtrl.Spreadsheet

let headerStrings : string seq = ...
let rowStringSeqs : string seq seq = ...

let columns = 
    Seq.append [headerStrings] rowStringSeqs 
    |> Seq.transpose

let columnsList = 
    columns 
    |> Seq.toList
    |> List.map (Seq.toList)


let arcTable = ArcTable.composeColumns columnsList 

Now it's

open ARCtrl.Spreadsheet

let headerStrings : string seq = ...
let rowStringSeqs : string seq seq = ...

let columns = 
    Seq.append [headerStrings] rowStringSeqs 
    |> Seq.transpose

let columnsArray = 
    columns 
    |> Seq.toArray
    |> Array.map (Seq.toArray)

let arcTable = ArcTable.composeColumns columnsArray