Commit 12f95f04 authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2002-11-11 20:44:28 by cvscast] Empty log message

Original author: cvscast
Date: 2002-11-11 20:44:28+00:00
parent b0274cbc
......@@ -40,13 +40,25 @@ let base : Person =
sort base;;
let fun contact(Person->String)
| <person>[ _ _ ((<tel kind="work"> x) | (<email> x) | (<tel kind="home"> x))] -> x
| <person>[ _ _ ((<tel kind="work"> x) | (<email> x) | (<tel> x))] -> x
| _ ->"no contact";;
contact(
<person gender="F">[
<name>"Vronique"
<children>[
<person gender="F">[
<name>"Ilaria"
<children>[]
]
]
<tel> "314-1592654"
])
;;
contact base;;
(* compilation efficace avec _ a la place de person *)
......
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