ligo/test/contracts/concat_list.tz

7 lines
191 B
Plaintext
Raw Normal View History

2017-07-24 15:06:56 +02:00
parameter (list string);
return string;
storage unit;
code {CAR; PUSH string ""; SWAP;
2017-08-15 22:24:40 +02:00
LAMBDA (pair string string) string {DUP; CDR; DIP{CAR}; CONCAT};
REDUCE; UNIT; SWAP; PAIR};