Mercurial > urweb
annotate tests/selexp.ur @ 1312:726f0caeea3f
Monad.appR
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Tue, 19 Oct 2010 11:51:53 -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) |