Snippets

orbitzN boaR6: Untitled snippet

Created by orbitzN
applicative.ml
Raw 
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
let app f_opt v_opt =
  match (f_opt, v_opt) with
    | (Some f, Some v) -> Some (f v)
    | _ -> None
;;

let ( <*> ) = app
;;

let fmap f = function
  | Some v -> Some (f v)
  | None -> None
;;

let ( <$> ) = fmap
;;

(+) <$> Some 1 <*> Some 2
;;

Comments (0)

HTTPS SSH

You can clone a snippet to your computer for local editing. Learn more.