[r2004-01-22 14:50:28 by cmiachon] Empty log message

Original author: cmiachon
Date: 2004-01-22 14:50:28+00:00

tests/cql/R/q8.cd

+(* How many items were actioned (auction ended) in March 1999? *)
+
+let fun count(x : [Any*]) : Int =
+  let tr_count((Int,[Any*]) -> Int)
+        |  (n,[]) -> n
+        |  (n,[_;t]) -> tr_count(n+1,t)
+   in tr_count(0,x);;
+
+(* In CQLx *)
+
+<item_count>( count(
+select [ed]/_
+from ed in [items]/Item_tuple/End_date
+where [ed]/Char <= "1999-03-31" and [ed]/Char >= "1999-03-01"));;
+
+(* In CQLp *)
+
+<item_count>( count(
+select ed
+from <items>[i::Item_tuple*] in [items],
+   <item_tuple>[_* <end_date>ed ;_] in i
+where ed<= "1999-03-31" and ed >= "1999-03-01"));;
+
+
+
+
+(* Solution in XQuery:
+
+let $item := doc("items.xml")//item_tuple
+  [end_date >= xs:date("1999-03-01") and end_date <= xs:date("1999-03-31")]
+return
+    <item_count>
+      { 
+        count($item) 
+      }
+    </item_count>
+
+*)