let rec inter list number set =
    printfn "%A" set
    match list with
    | [] -> -1,-1
    | head::tail ->
        if Set.contains (number - head) set then head,(number - head)
        else inter tail number (Set.add head set)

inter [10; 15; 7; 3] 17 Set.empty