ligo/test/contracts/max_in_list.tz

parameter (list int);
storage unit;
return (option int);
code {CAR; DIP{NONE int};
      LAMBDA
        (pair int (option int))
        (option int)
        {DUP; DUP; CAR; SWAP; CDR;
         IF_NONE {DIP{DROP}; SOME} {CMPGT; IF {CDR} {CAR; SOME}}};
      REDUCE; UNIT; SWAP; PAIR};
Michelson: updates test suite to use `int` and `nat` 2017-07-18 17:38:20 +02:00			`parameter (list int);`
Michelson: Add a test suite 2017-07-24 15:06:56 +02:00			`storage unit;`
Michelson: updates test suite to use `int` and `nat` 2017-07-18 17:38:20 +02:00			`return (option int);`
			`code {CAR; DIP{NONE int};`
Michelson: Add a test suite 2017-07-24 15:06:56 +02:00			`LAMBDA`
Michelson: updates test suite to use `int` and `nat` 2017-07-18 17:38:20 +02:00			`(pair int (option int))`
			`(option int)`
Michelson: removes amount from calling convention 2017-07-24 12:28:41 +02:00			`{DUP; DUP; CAR; SWAP; CDR;`
Michelson: Add a test suite 2017-07-24 15:06:56 +02:00			`IF_NONE {DIP{DROP}; SOME} {CMPGT; IF {CDR} {CAR; SOME}}};`
			`REDUCE; UNIT; SWAP; PAIR};`