将数组划分为区块F#

let blockSize = 10 // 指定每个区块的大小

let partitionArrayIntoBlocks (arr: 'a[]) =
    let rec partitionHelper (remaining: 'a[]) (blocks: 'a[] list) =
        if remaining.Length <= blockSize then
            List.rev (remaining :: blocks) // 将剩余的元素作为最后一个区块
        else
            let block, rest = Array.splitAt blockSize remaining
            partitionHelper rest (block :: blocks)
    
    partitionHelper arr []

// 示例用法
let inputArray = [|1; 2; 3; 4; 5; 6; 7; 8; 9; 10; 11; 12; 13; 14; 15|]
let blocks = partitionArrayIntoBlocks inputArray

// 输出每个区块
for block in blocks do
    printfn "%A" block