codeb/codea_skinner33_18.call

   1
   2 long f1(long, long*);
   3 long f2(long, long*);
   4 long f3(long, long*);
   5 long f4(long, long*);
   6 long f5(long, long*);
   7 long f6(long, long*);
   8 long f7(long, long*);
   9 long f8(long, long*);
  10 long f9(long, long*);
  11
  12 long muh[] = {5, 6};
  13 long kuh[] = {6, 5};
  14
  15 RET(f1(4,muh) == 1 && f1(5,kuh) == 0 &&
  16         f2(5,muh) == 0 && f2(5,kuh) == 1 &&
  17         f3(5,muh) == 1 && f3(5,kuh) == 0 &&
  18         f4(5,muh) == 0 && f4(5,kuh) == 1 &&
  19         f5(5,muh) == 1 && f5(5,kuh) == 0 &&
  20         f6(6,muh) == 1 && f6(6,kuh) == 0 &&
  21         f7(5,muh) == 0 && f7(5,kuh) == 1 &&
  22         f8(5,muh) == 1 && f8(5,kuh) == 0 &&
  23         f9(5,muh) == 0 && f9(5,kuh) == 1
  24 );