Commit 22bf4297 authored by Pietro Abate's avatar Pietro Abate

[r2005-06-15 11:25:03 by afrisch] Empty log message

Original author: afrisch
Date: 2005-06-15 11:25:03+00:00
parent e3b1511d
......@@ -10,13 +10,13 @@ type Sons = <sons>[ Man* ]
type Daughters = <daughters>[ Woman* ]
let split_m (MPerson -> Man)
<_>[ <_>n <_>[(mc::<_ gender="M">_ | fc::_)*] ] ->
<_ ..>[ <_>n <_>[(mc::<_ gender="M">_ | fc::_)*] ] ->
let s = map mc with x -> split_m x in
let d = map fc with x -> split_f x in
<man name=n>[ <sons>s <daughters>d ]
let split_f (FPerson -> Woman)
<_>[ <_>n <_>[(mc::<_ gender="M">_ | fc::_)*] ] ->
<_ ..>[ <_>n <_>[(mc::<_ gender="M">_ | fc::_)*] ] ->
let s = map mc with x -> split_m x in
let d = map fc with x -> split_f x in
<woman name=n>[ <sons>s <daughters>d ]
......
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