diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-11-21 18:36:50 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-11-21 18:36:50 +1300 |
| commit | 56c6d3f2e2d15131f1fecccadb2eaa05546999ca (patch) | |
| tree | 045148816d5fcc1c2237ac5d7e15503d17b1bcb9 /example | |
| parent | 0783aeb9f463efb7e600ffa2eadb5b1c078fd957 (diff) | |
Diffstat (limited to 'example')
| -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 |