kick start week 2 partial application

kickstart_partial_application.fs

let add x y = x + y

let inc = add 1

5 |> inc |> printf "%A"
printf "%A" <| inc  5

printf "%A" (inc 5)


let executeQuery connString query =
    printf "%s %s" connString  query

executeQuery "myConnnString" "myquery"

executeQuery "myConnString" "myquery2"

let myOracleExecuteQuery = executeQuery "myConnString"

myOracleExecuteQuery "only query"



let executeQuery2 query connString  =
     printf "%s %s" connString  query

let executeQuery3  connString  query =
     executeQuery2   query connString

let flip f x y = f y x

let executeQuery4 = executeQuery2 |> flip


let myOracleExecuteQuery2 = executeQuery4 "myConnString"
myOracleExecuteQuery2 "only query"