mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-16 18:03:36 +00:00
d302810ecf
library/list.m:
Add a predicate version of map_corresponding3.
Move a predicate next to its only call site.
Use more meaningful variable names.
library/map.m:
library/tree234.m:
Add several predicates: foldl4_values, foldl5_values, filter_map_values
and filter_map_values_only.
library/multi_map.m:
Embed an implicit assertion in a call.
library/set_ordlist.m:
Give a predicate a better name.
library/NEWS:
Announce the new additions.
Put the list of updated library modules back into alphabetical order.
tests/hard_coded/test_map_filter.{m,exp}:
Test the one wholly new utility predicate.
69 lines
2.1 KiB
Mathematica
69 lines
2.1 KiB
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
% Basic test of some bag predicates.
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- module bag_various.
|
|
:- interface.
|
|
:- import_module io.
|
|
|
|
:- pred main(io::di, io::uo) is cc_multi.
|
|
|
|
:- implementation.
|
|
|
|
:- import_module bag.
|
|
:- import_module bool.
|
|
:- import_module int.
|
|
:- import_module list.
|
|
:- import_module solutions.
|
|
:- import_module string.
|
|
|
|
main(!IO) :-
|
|
Bag = bag.from_list([1, 1, 1, 2, 3, 3, 4]),
|
|
dump("bag.to_list: ", []++bag.to_list(Bag), !IO),
|
|
dump("bag.to_assoc_list: ", []++bag.to_assoc_list(Bag), !IO),
|
|
dump("bag.count: ", 0+bag.count(Bag), !IO),
|
|
dump("bag.count_unique: ", 0+bag.count_unique(Bag), !IO),
|
|
( if bag.member(4, Bag) then
|
|
dump("bag.member(4): ", yes, !IO)
|
|
else
|
|
dump("bag.member(4): ", no, !IO)
|
|
),
|
|
( if bag.member(5, Bag) then
|
|
dump("bag.member(5): ", yes, !IO)
|
|
else
|
|
dump("bag.member(5): ", no, !IO)
|
|
),
|
|
unsorted_solutions(bag_member_test(Bag), Sols),
|
|
dump("unsorted_solutions(bag.member/3): ", Sols, !IO),
|
|
|
|
test_insert_duplicates(5, bag.init, !IO),
|
|
test_insert_duplicates(0, bag.init, !IO),
|
|
test_insert_duplicates(-1, bag.init, !IO),
|
|
test_insert_duplicates(4, bag.from_list(["foo"]), !IO).
|
|
|
|
:- pred bag_member_test(bag(int)::in, {int, list(int)}::out) is nondet.
|
|
|
|
bag_member_test(Bag, O) :-
|
|
bag.member(M, Bag, BagMinusM),
|
|
O = {M, bag.to_list(BagMinusM)}.
|
|
|
|
:- pred test_insert_duplicates(int::in, bag(string)::in, io::di, io::uo)
|
|
is det.
|
|
|
|
test_insert_duplicates(N, Bag0, !IO) :-
|
|
Prefix = "bag.insert_duplicates(" ++ int_to_string(N) ++ ", \"foo\"): ",
|
|
( if bag.insert_duplicates(N, "foo", Bag0, Bag) then
|
|
bag.to_list(Bag, List),
|
|
dump(Prefix, List, !IO)
|
|
else
|
|
dump(Prefix, "fail", !IO)
|
|
).
|
|
|
|
:- pred dump(string::in, T::in, io::di, io::uo) is det.
|
|
|
|
dump(Msg, T, !IO) :-
|
|
io.write_string(Msg, !IO),
|
|
io.write_line(T, !IO).
|