// Learn more about F# at http://fsharp.net
// See the 'F# Tutorial' project for more help.
let sourceArray = [52; 41; 1; 75; 12]
let rec allSumsOf xs =
    if List.isEmpty xs then
        List.Empty
    else
        let head = List.head xs
        let tail = List.tail xs
        let tailSums = allSumsOf tail
        let tailPlusHead = tailSums |> List.map ((+) head)

        head :: tailSums @ tailPlusHead

[<EntryPoint>]
let main argv =
    printfn "%A" (allSumsOf sourceArray |> List.sort)