2017-10-30 10:22:16 +01:00
|
|
|
parameter (pair (list int) (list int));
|
2018-04-05 17:17:27 +02:00
|
|
|
storage (list int);
|
2018-05-02 01:45:15 +02:00
|
|
|
code { CAR; UNPAIR ; # Unpack lists
|
|
|
|
|
NIL int; SWAP; # Setup reverse accumulator
|
|
|
|
|
ITER {CONS}; # Reverse list
|
|
|
|
|
ITER {CONS}; # Append reversed list
|
|
|
|
|
NIL operation;
|
|
|
|
|
PAIR}
|
