summaryrefslogtreecommitdiff
path: root/omegalib/examples/old_test/m2.oc-rt
diff options
context:
space:
mode:
Diffstat (limited to 'omegalib/examples/old_test/m2.oc-rt')
-rw-r--r--omegalib/examples/old_test/m2.oc-rt35
1 files changed, 35 insertions, 0 deletions
diff --git a/omegalib/examples/old_test/m2.oc-rt b/omegalib/examples/old_test/m2.oc-rt
new file mode 100644
index 0000000..cdd76dd
--- /dev/null
+++ b/omegalib/examples/old_test/m2.oc-rt
@@ -0,0 +1,35 @@
+>>> R1:={[i,j]: 2 <= i,j <= 9};
+>>> R2:={[i,j]: 5 <= i <= 9 & 1 <= j <= 9};
+>>> codegen R1,R2;
+for(t1 = 2; t1 <= 9; t1++) {
+ if (t1 >= 5) {
+ s2(t1,1);
+ }
+ if (t1 <= 4) {
+ for(t2 = 2; t2 <= 9; t2++) {
+ s1(t1,t2);
+ }
+ }
+ if (t1 >= 5) {
+ for(t2 = 2; t2 <= 9; t2++) {
+ s1(t1,t2);
+ s2(t1,t2);
+ }
+ }
+}
+
+>>> codegen 2 R1,R2;
+for(t1 = 2; t1 <= 4; t1++) {
+ for(t2 = 2; t2 <= 9; t2++) {
+ s1(t1,t2);
+ }
+}
+for(t1 = 5; t1 <= 9; t1++) {
+ s2(t1,1);
+ for(t2 = 2; t2 <= 9; t2++) {
+ s1(t1,t2);
+ s2(t1,t2);
+ }
+}
+
+