diff options
Diffstat (limited to 'example/zebra.adb')
| -rw-r--r-- | example/zebra.adb | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/example/zebra.adb b/example/zebra.adb index 8f13e60..7917421 100644 --- a/example/zebra.adb +++ b/example/zebra.adb @@ -115,8 +115,6 @@ begin Verse.Member (T (N & T (+"luckystrikes") & T (+"oj") & N & N) & Houses_Term); Verse.Member (T (T (+"japanese") & T (+"parliaments") & N & N & N) & Houses_Term); Verse.Member (T (N & T (+"oldgolds") & N & T (+"snails") & N) & Houses_Term); - Verse.Member (T (N & N & T (+"water") & N & N) & Houses_Term); - Verse.Member (T (N & N & N & T (+"zebra") & N) & Houses_Term); Verse := On_Right (Verse, T (N & N & N & N & T (+"ivory")) & @@ -132,6 +130,11 @@ begin T (N & N & N & T (+"fox") & N) & T (N & T (+"chesterfields") & N & N & N) & Houses_Term); + Verse.Force (1); + + Verse.Member (T (N & N & T (+"water") & N & N) & Houses_Term); + Verse.Member (T (N & N & N & T (+"zebra") & N) & Houses_Term); + Result := Verse.Take_First; for House of Houses loop |