gesamt/codeb_skinner33_04.0

   1
   2 struct a b end;
   3
   4 method foo(n)
   5         if 0 then
   6                 return 0;
   7         end;
   8         a := b;
   9         if not(not(a = b)) then
  10                 return n - (a*b);
  11         end;
  12         return 0x9999;
  13 end;
  14
  15 method bar(n)
  16         var x := not(5 < (n*2));
  17         if x then
  18                 return n - (2*n);
  19         else
  20                 x := 3 * (4 * n);
  21                 return x;
  22         end;
  23 end;
  24
  25 method bla(n)
  26         if not(not(2 * ( 5 * (n or n)))) then
  27                 return 1;
  28         else
  29                 return 0;
  30         end;
  31 end;
  32
  33 method blubb(n)
  34         if not((n*n) < 20) then
  35                 return 20;
  36         else
  37                 if not(not(n)) then
  38                         return 10;
  39                 else
  40                         return 5;
  41                 end;
  42         end;
  43 end;
  44
  45 struct q r s t end;
  46
  47 method miau(n m)
  48         r := 5 * ((n-m) * 3);
  49         s := 7 * (q * 5);
  50         t := 40000000 * (4 * q);
  51         return 0;
  52 end;