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 ;;
You can clone a snippet to your computer for local editing. Learn more.