#include "intlist.h"
/* acyclic(x) and l[x]==_l and data(x) and
* acyclic(y) and l[y]==_l and data(y) and
* disjoint(x,y) */
void add2copy_eq(intlist x, intlist y) {
intlist xi = x;
intlist yi = y;
while (xi != NULL) {
yi->data = xi->data + 2;
xi = xi->next;
yi = yi->next;
}
}
|
var _data:real, _free:real, _len:real,
_new:real, _next:real, _null:real,
x:real, xi:real, y:real, yi:real, z:real,
_l:int, _k: int, S: int;
begin
assume (x == 2);
xi = _null; yi = _null; z = _null;
xi = x;
yi = y;
while xi != _null do
yi = (xi * _data + 2)/ _data;
z = xi* _next;
xi = _null;
xi = z;
z = _null;
z = yi * _next;
yi = _null;
yi = z;
z = _null;
done;
end
|