Mercurial > urweb

view tests/window.ur @ 1888:5f478ecf65e4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Identify more local definitions as functions that should be lifted to the top level, which has synergistic effects on inlining later
author Adam Chlipala <adam@chlipala.net>
date Tue, 05 Nov 2013 11:58:52 -0500
parents 818d4097e2ed
children
line wrap: on
line source
table empsalary : { Depname : string,
                    Empno : int,
                    Salary : int }

fun main () : transaction page =
    x <- queryX (SELECT empsalary.Depname, empsalary.Empno, empsalary.Salary,
                   RANK() OVER (PARTITION BY empsalary.Depname ORDER BY empsalary.Salary DESC) AS R,
                   AVG(empsalary.Salary) OVER (PARTITION BY empsalary.Depname) AS A
                 FROM empsalary)
                (fn r => <xml>{[r.Empsalary.Depname]}, {[r.Empsalary.Empno]}, {[r.Empsalary.Salary]}, {[r.R]}, {[r.A]}<br/></xml>);
    return <xml><body>
      {x}
    </body></xml>