Poly-Coder

Description of Poly-Coder site

Home

0 x 0
0 x 1
0 x 2
0 x 3
0 x 4
0 x 5
1 x 0
1 x 1
1 x 2
1 x 3
1 x 4
1 x 5
2 x 0
2 x 1
2 x 2
2 x 3
2 x 4
2 x 5
3 x 0
3 x 1
3 x 2
3 x 3
3 x 4
3 x 5
4 x 0
4 x 1
4 x 2
4 x 3
4 x 4
4 x 5
5 x 0
5 x 1
5 x 2
5 x 3
5 x 4
5 x 5
module FSharp.Core.Async

let returnM a = async.Return a
let bind f a = async.Bind(a, f)
let map f a = bind (f >> returnM) a

let failwith msg = async.Delay(fun () -> failwith msg)
let invalidArg name msg = async.Delay(fun () -> invalidArg name msg)
let nullArg msg = async.Delay(fun () -> nullArg msg)
let invalidOp msg = async.Delay(fun () -> invalidOp msg)

// Infix operators
module Infixes =
  let inline (>>=) a f = bind f a
  let inline (>>-) a f = map f a