mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-30 08:44:37 +00:00
32d85a300f
Estimated hours taken: 3
Branches: main
trace/mercury_trace_tables.m:
Add a table for the less-than-fully-qualified names of modules,
allowing any prefix of the module name to be omitted.
Use it to allow procedure specifications (e.g. in breakpoint commands)
to use such module names, with fully qualified module names taking
precedence over less-than-fully-qualified module names.
tests/debugger/breakpoints.{m,inp,exp*}:
tests/debugger/breakpoints.print_list.m:
tests/debugger/breakpoints.{a,b}.m:
tests/debugger/breakpoints.{a,b}.testmod.m:
Update this test case to test the new functionality.
99 lines
1.7 KiB
Mathematica
99 lines
1.7 KiB
Mathematica
:- module breakpoints.
|
|
|
|
:- interface.
|
|
|
|
:- import_module io.
|
|
|
|
:- pred main(io__state, io__state).
|
|
:- mode main(di, uo) is cc_multi.
|
|
:- func string / string = string.
|
|
|
|
:- implementation.
|
|
|
|
:- include_module breakpoints__print_list.
|
|
:- include_module breakpoints__a.
|
|
:- include_module breakpoints__b.
|
|
:- import_module breakpoints__print_list.
|
|
:- import_module breakpoints__a.
|
|
:- import_module breakpoints__b.
|
|
:- import_module breakpoints__a__testmod.
|
|
:- import_module breakpoints__b__testmod.
|
|
|
|
:- import_module list, int, string.
|
|
|
|
main -->
|
|
( { queen(data, Out) } ->
|
|
print_list(Out),
|
|
io__write(test_in_a),
|
|
io__nl,
|
|
io__write(test_in_b),
|
|
io__nl
|
|
;
|
|
io__write_string("No solution\n")
|
|
).
|
|
|
|
:- func data = list(int).
|
|
|
|
:- pred data(list(int)).
|
|
:- mode data(out) is det.
|
|
|
|
:- pred queen(list(int), list(int)).
|
|
:- mode queen(in, out) is nondet.
|
|
|
|
:- pred qperm(list(T), list(T)).
|
|
:- mode qperm(in, out) is nondet.
|
|
|
|
:- pred qdelete(T, list(T), list(T)).
|
|
:- mode qdelete(out, in, out) is nondet.
|
|
|
|
:- pred safe(list(int)).
|
|
:- mode safe(in) is semidet.
|
|
|
|
:- pred nodiag(int, int, list(int)).
|
|
:- mode nodiag(in, in, in) is semidet.
|
|
|
|
data = D :-
|
|
data(D).
|
|
|
|
data([1,2,3,4,5]).
|
|
|
|
queen(Data, Out) :-
|
|
qperm(Data, Out),
|
|
safe(Out).
|
|
|
|
qperm([], []).
|
|
qperm([X|Y], K) :-
|
|
qdelete(U, [X|Y], Z),
|
|
K = [U|V],
|
|
qperm(Z, V).
|
|
|
|
qdelete(A, [A|L], L).
|
|
qdelete(X, [A|Z], [A|R]) :-
|
|
qdelete(X, Z, R).
|
|
|
|
safe([]).
|
|
safe([N|L]) :-
|
|
nodiag(N, 1, L),
|
|
safe(L).
|
|
|
|
nodiag(_, _, []).
|
|
nodiag(B, D, [N|L]) :-
|
|
NmB = N - B,
|
|
BmN = B - N,
|
|
( D = NmB ->
|
|
fail
|
|
; D = BmN ->
|
|
fail
|
|
;
|
|
true
|
|
),
|
|
D1 = D + 1,
|
|
nodiag(B, D1, L).
|
|
|
|
X / _ = X.
|
|
|
|
:- pred test_in_both(io::di, io::uo) is det.
|
|
|
|
test_in_both(!IO) :-
|
|
io__write_string("test_in_both in breakpoints\n", !IO).
|