1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
(: insert-start :)
declare variable $input-context external;
(: insert-end :)
<bib>
{
for $book1 in $input-context//book,
$book2 in $input-context//book
let $aut1 := for $a in $book1/author
order by exactly-one($a/last), exactly-one($a/first)
return $a
let $aut2 := for $a in $book2/author
order by exactly-one($a/last), exactly-one($a/first)
return $a
where $book1 << $book2
and not($book1/title = $book2/title)
and deep-equal($aut1, $aut2)
return
<book-pair>
{ $book1/title }
{ $book2/title }
</book-pair>
}
</bib>
|
