summaryrefslogtreecommitdiff
path: root/omega/examples/old_test/m4.oc-rt
blob: d710dce45eed2d49783ab162f359f1d49f94f61b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
>>> T1:={[i,j]->[j,i,0]};
>>> T2:={[i,j]->[j,i,1]};
>>> IS:={[i,j]: 1 <= i,j <= 9};
>>> 
>>> newIS1 := T1 \ IS;
>>> newIS1;
{[i,j] -> [j,i,0] : 1 <= i <= 9 && 1 <= j <= 9}
>>> newIS2 := T2 \ IS;
>>> newIS2;
{[i,j] -> [j,i,1] : 1 <= i <= 9 && 1 <= j <= 9}
>>> 
>>> codegen T1:IS,T2:IS;
for(t1 = 1; t1 <= 9; t1++) {
  for(t2 = 1; t2 <= 9; t2++) {
    s1(t2,t1);
    s2(t2,t1);
  }
}

>>> codegen 2 T1:IS,T2:IS;
for(t1 = 1; t1 <= 9; t1++) {
  for(t2 = 1; t2 <= 9; t2++) {
    s1(t2,t1);
    s2(t2,t1);
  }
}