parser/tom_all.0

   1 /* all - teste alle ableitungen */
   2 struct
   3 a
   4 end;
   5
   6 method b(c d)
   7   var e := 0;
   8   c := e;
   9   d = e;
  10   if (e = d) then c := 1-2; end;
  11   if (e < d) then c := 1 or 2 or 3; else c := c * d * e; end;
  12   while (not d) do
  13      d := d.c - d -d - d;
  14      d.c := c.d - d.c;
  15      b (d, c);
  16      b.b (c, d);
  17   end;
  18   return c = d;
  19 end;