diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-11-16 21:35:17 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-11-16 21:35:17 +1300 |
| commit | d0f8cc922207cd066a7a44aa3fa24fcd9158bbd0 (patch) | |
| tree | 134cc05a85a41e2e83725311cc5efc461422854e /test/fivesix.adb | |
| parent | 203222f4ffbdaf23a30ab390a7ad765cfef0c008 (diff) | |
Improvements to Fresh and Take
Diffstat (limited to 'test/fivesix.adb')
| -rw-r--r-- | test/fivesix.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/fivesix.adb b/test/fivesix.adb index 3eabf6a..a17cbb1 100644 --- a/test/fivesix.adb +++ b/test/fivesix.adb @@ -39,9 +39,9 @@ begin Sixes.Unify (Sixes.Fresh, 6); Sixes.Recurse; - Result := Disjunct (Fives, Sixes).Take (5); + Result := Disjunct (Fives, Sixes); - TIO.Put_Line (Image (Result)); + TIO.Put_Line (Image (Result.Take (5))); end FiveSix; |