37 lines
911 B
Plaintext
37 lines
911 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
|
|
|