37 lines
905 B
Plaintext
37 lines
905 B
Plaintext
contract TuplesMatch =
|
|
|
|
entrypoint tuplify3() = (t) => switch(t)
|
|
(x, y, z) => 3
|
|
|
|
entrypoint fst(p : int * string) =
|
|
switch(p)
|
|
(x, y) => x
|
|
entrypoint fst'(p : int * string) =
|
|
switch(p)
|
|
(x, _) => x
|
|
entrypoint snd(p : int * string) =
|
|
switch(p)
|
|
(x, y) => y
|
|
entrypoint snd'(p : int * string) =
|
|
switch(p)
|
|
(_, y) => y
|
|
entrypoint sum(p) =
|
|
switch(p)
|
|
(x, y) => x + y
|
|
entrypoint swap(p : int * string) =
|
|
switch(p)
|
|
(x, y) => (y, x)
|
|
entrypoint id(p : int * int * string) =
|
|
switch(p)
|
|
(x, y, z) => (x, y, z)
|
|
entrypoint nest(p : (int * int) * string) =
|
|
switch(p)
|
|
(xy, z) => switch(xy) (x, y) => (x, y, z)
|
|
entrypoint deep(p : (int * int) * (int * int)) =
|
|
switch(p)
|
|
((x, y), (z, w)) => (x, y, z, w)
|
|
entrypoint deep_sum(p : (int * int) * (int * int)) =
|
|
switch(p)
|
|
((x, y), (z, w)) => x + y + z + w
|
|
|