1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
(: Written By: Frans Englich(maintainer, not original author) :)
(: Purpose: For each richer-than-average person, list the number of items
currently on sale whose price does not exceed 0.02% of the
person's income. :)
(: Date: 2007-03-09 :)
(: insert-start :)
declare variable $input-context external;
(: insert-end :)
<XMark-result-Q12>
{
let $auction := $input-context return
for $p in $auction/site/people/person
let $l :=
for $i in $auction/site/open_auctions/open_auction/initial
where $p/profile/@income > 5000.0 * exactly-one($i/text())
return $i
where $p/profile/@income > 50000.0
return <items person="{$p/profile/@income}">{count($l)}</items>
}
</XMark-result-Q12>
|
