annotate tests/selexp.ur @ 1505:8c851e5508a7
Tutorial: up to First-Class Polymorphism
| author |
Adam Chlipala <adam@chlipala.net> |
| date |
Sun, 17 Jul 2011 11:00:04 -0400 |
| parents |
71bafe66dbe1 |
| children |
|
| rev |
line source |
|
adamc@233
|
1 table t1 : {A : int, B : string, C : float}
|
|
adamc@233
|
2 table t2 : {A : float, D : int}
|
|
adamc@233
|
3
|
|
adamc@233
|
4 val q1 = (SELECT 0 AS Zero FROM t1)
|
|
adamc@233
|
5 val q2 = (SELECT t1.A < t2.D AS Lt FROM t1, t2)
|
|
adamc@233
|
6 val q3 = (SELECT t1.A < t2.D AS Lt, t1.A, t2.D, t1.C = t2.A AS Eq FROM t1, t2)
|
