From 56c6d3f2e2d15131f1fecccadb2eaa05546999ca Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Fri, 21 Nov 2025 18:36:50 +1300 Subject: Reordering of declarations to reduce memory usage --- example/zebra.adb | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'example') 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 -- cgit