diff options
| author | dhuth <derickhuth@gmail.com> | 2014-10-06 11:56:47 -0600 |
|---|---|---|
| committer | dhuth <derickhuth@gmail.com> | 2014-10-06 11:56:47 -0600 |
| commit | e4b20015a4ee35f1279af4caa983478fa2ff0d4a (patch) | |
| tree | f47cbff8b2bba458b54a739e91a87b303f7665f1 /omega/examples/old_test/p6 | |
| parent | 600fa18324c21a162c50c40ae5f00c899a41dd24 (diff) | |
| download | chill-e4b20015a4ee35f1279af4caa983478fa2ff0d4a.tar.gz chill-e4b20015a4ee35f1279af4caa983478fa2ff0d4a.tar.bz2 chill-e4b20015a4ee35f1279af4caa983478fa2ff0d4a.zip | |
Added omega to source
Diffstat (limited to 'omega/examples/old_test/p6')
| -rw-r--r-- | omega/examples/old_test/p6 | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/omega/examples/old_test/p6 b/omega/examples/old_test/p6 new file mode 100644 index 0000000..f09634a --- /dev/null +++ b/omega/examples/old_test/p6 @@ -0,0 +1,25 @@ +R := { [i] -> [i'] : 1 <= i,i' <= 10 && i' = i+1 }; +R; +inverse R; +domain R; +range R; +R compose R; +R+; # closure of R = R union (R compose R) union (R compose R ... +complement R; +S := {[i] : 5 <= i <= 25}; +S; +R(S); # apply R to S +R \ S; # restrict domain of R to S +R / S; # restrict range of R to S +(R\S) union (R/S); +(R\S) intersection (R/S); +(R/S) - (R\S); +S*S; # cross product +D := S - {[9:16:2]} - {[17:19]}; +D; +T := { [i] : 1 <= i <= 11 & exists (a : i = 2a) }; +T; +Hull T; +Hull D; +codegen D; +codegen {[i,j] : 1 <= i+j,j <= 10}; |