14 lines
208 B
Text
14 lines
208 B
Text
open Base
|
|
open Expect_test_helpers_base
|
|
|
|
let () =
|
|
let z = 3 in
|
|
let local_ f x y = x + y + z in
|
|
let r = Option.map2 (Some 3) (Some 4) ~f in
|
|
print_s [%sexp (r : int option)]
|
|
;;
|
|
|
|
[%%expect
|
|
{|
|
|
(10)
|
|
|}]
|