Commit 4548dc75 authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2003-11-25 13:58:26 by cmiachon] Empty log message

Original author: cmiachon
Date: 2003-11-25 13:58:26+00:00
parent 8c2d3f50
(*********function *********)
let fun count([Any*]->Int)
[] -> 0
| [h;t] -> 1+count(t);;
| [_;t] -> 1+count(t);;
(***************************)
......@@ -19,9 +19,9 @@ where count([b]/<author>_)>=1;;
let q6p=
<bib>
select <book>[t !a1 !(if el=[] then [] else [<et-al>[]])]
select <book>[t !a !(if etal=[] then [] else [<et-al>[]])]
from <bib>[b::Book*] in [doc],
<book>[t&Title (a1&Author | a1::(Author Author) el::_*) Publisher _*
<book>[t&Title ( a&Author | a::(Author Author) etal::_*) Publisher _*
] in b;;
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment