Parallelism bits

bootyDivision3.fs

    // Preassign the divider with some configurations.
    member x.preassignBB(level, threadId) =
        for l in 1..level do
            if threadId &&& (pown 2 l) <> 0 then
                path.[depth] <- 1uy
                totalValues.[1] <- totalValues.[1] + itemValues.[depth]
                totalUnassigned <- totalUnassigned - itemValues.[depth]
                depth <- depth + 1        
            else
                path.[depth] <- 0uy
                totalValues.[0] <- totalValues.[0] + itemValues.[depth]
                totalUnassigned <- totalUnassigned - itemValues.[depth]
                depth <- depth + 1  

let solveBB(itemValues) =
    let bd = new BootyDivider(itemValues)
    bd.divideBB()

let solveBBParallel(itemValues, level) =
    let count = pown 2 level
    // Setup different booty dividers with different configurations.
    let bds = Array.init count (fun _ -> new BootyDivider(itemValues))
    for i in 0..count-1 do
        bds.[i].preassignBB(level, i)

    let solutions = Array.zeroCreate count
    Parallel.For(0, count,
        fun i -> solutions.[i] <- bds.[i].divideBB()) |> ignore
    Array.min solutions