39 lines
1.1 KiB
Plaintext
39 lines
1.1 KiB
Plaintext
(* Simple test of binding multiple values *)
|
|
|
|
let (x: int), (y: int) = 1,2
|
|
|
|
let main (p: unit) : int = x + y
|
|
|
|
let ((x : int) , (y :int)) = 3,3
|
|
|
|
let main_paren (p: unit) : int = x + y
|
|
|
|
let foobar : (int * int) = (23 , 42)
|
|
let (foo : int) , (bar : int) = foobar
|
|
|
|
(* Here to prevent a regression of https://gitlab.com/ligolang/ligo/issues/63#note_254106580 *)
|
|
|
|
let correct_values_bound (p: unit) : int * int =
|
|
foo, bar
|
|
|
|
let non_tuple_rhs (p: unit) : int =
|
|
bar - foo
|
|
|
|
(* Here to prevent a regression of https://gitlab.com/ligolang/ligo/issues/63#note_254106580 *)
|
|
|
|
let big_tuple : (int * int * int * int * int) = (10, 20, 30, 40, 50)
|
|
|
|
let (a: int), (b: int), (c: int), (d: int), (e: int) = big_tuple
|
|
|
|
let correct_values_big_tuple (p: unit) : int * int * int * int * int =
|
|
a, b, c, d, e
|
|
|
|
(* Here to prevent a regression of https://gitlab.com/ligolang/ligo/issues/63#note_254106580 *)
|
|
|
|
let different_types: (int * string) = 10, "hello"
|
|
|
|
let (greet_num: int), (greeting: string) = different_types
|
|
|
|
let correct_values_different_types (p: unit) : int * string =
|
|
greet_num, greeting
|