TRYDSH v0.1
|
Register
|
Login
Username
Password
Keep me logged in
Home
About
Username
Password
Keep me logged in
-- Here you can type your own database-executable program. employees :: Q [(Text, Text, Integer)] employees = toQ [ ("Simon", "MS", 80) , ("Erik", "MS", 90) , ("Phil", "Ed", 40) , ("Gordon", "Ed", 45) , ("Paul", "Yale", 60) ] departments :: Q [Text] departments = nub [ dept | (view -> (name,dept,salary)) <- employees] deptSalary :: Q Text -> Q Integer deptSalary dept = sum [ salary | (view -> (name,dept',salary)) <- employees , dept == dept'] mainQuery :: Q [(Text,Integer)] mainQuery = [ tuple (dept,deptSalary dept) | dept <- departments]
Table
Haskell
JSON
Download JSON
Download CSV
SQL
Query Plan
Optimised Query Plan
© DB Uni Tübingen -
www-db.informatik.uni-tuebingen.de
- (0,022 s)