Mercurial > urweb

view tests/subquery.ur @ 2068:b6adfe99bb08

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Check realloc's return code to prevent segfault on out of memory condition (Part 2)
author Sergey Mironov <grrwlf@gmail.com>
date Sun, 24 Aug 2014 11:56:41 +0400
parents 9c82548c97e9
children
line wrap: on
line source
table t : { A : int, B : int, C : int }

fun main () =
    v <- queryX1 (SELECT t.A, t.C
                  FROM t
                  WHERE t.B = (SELECT MAX(U.B) AS M
                               FROM t AS U
                               WHERE U.A = t.A))
                 (fn r => <xml>{[r.A]},{[r.C]};</xml>);
    v' <- queryX1 (SELECT t.A, t.C
                   FROM (SELECT t.A AS A, MAX(t.B) AS B
                         FROM t
                         GROUP BY t.A) AS Maxes
                   JOIN t ON t.A = Maxes.A AND t.B = Maxes.B)
                  (fn r => <xml>{[r.A]},{[r.C]};</xml>);
    return <xml><body>
      {v}<br/>
      {v'}
    </body></xml>