Mercurial > urweb
diff tests/window.ur @ 1777:59b07fdae1ff
Partitioning and ordering for window functions
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Sat, 02 Jun 2012 16:47:09 -0400 |
parents | 8f28c3295148 |
children | 818d4097e2ed |
line wrap: on
line diff
--- a/tests/window.ur Sat Jun 02 16:00:50 2012 -0400 +++ b/tests/window.ur Sat Jun 02 16:47:09 2012 -0400 @@ -3,9 +3,11 @@ Salary : int } fun main () : transaction page = - x <- queryX (SELECT empsalary.Depname, empsalary.Empno, empsalary.Salary, RANK() AS R + 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]}<br/></xml>); + (fn r => <xml>{[r.Empsalary.Depname]}, {[r.Empsalary.Empno]}, {[r.Empsalary.Salary]}, {[r.R]}, {[r.A]}<br/></xml>); return <xml><body> {x} </body></xml>