2017-07-24 15:06:56 +02:00
|
|
|
parameter (pair (list string) (list string));
|
2018-04-05 17:17:27 +02:00
|
|
|
storage (option bool);
|
2017-07-24 12:28:41 +02:00
|
|
|
code {CAR; DUP; CAR; DIP{CDR}; EMPTY_SET string; SWAP;
|
2018-05-02 01:45:15 +02:00
|
|
|
ITER {PAIR; DUP; CAR; DIP{CDR}; PUSH bool True; SWAP; UPDATE};
|
|
|
|
|
PUSH bool True; SWAP; PAIR; SWAP;
|
|
|
|
|
ITER {PAIR; DUP; DUP; CAR; DIP{CDAR; DIP{CDDR}; DUP}; MEM; DIP{SWAP}; AND; SWAP; PAIR};
|
|
|
|
|
CDR; SOME; NIL operation; PAIR};
|
