ligo/test/contracts/map_car.tz

5 lines
119 B
Plaintext
Raw Normal View History

parameter bool;
storage (pair bool nat);
return unit;
code { DUP; CAR; DIP{CDR}; SWAP; MAP_CAR { AND } ; UNIT; PAIR };