mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-21 04:13:46 +00:00
81c898956b
Estimated hours taken: 0.25 tests/hard_coded/higher_order_syntax.m: tests/hard_coded/higher_order_func_test.m: Delete nondet/multi modes of the function `map_f', since nondeterministic functions are not allowed.
26 lines
640 B
Mathematica
26 lines
640 B
Mathematica
:- module higher_order_func_test.
|
|
:- import_module int.
|
|
|
|
:- interface.
|
|
:- import_module std_util, list, io.
|
|
|
|
:- pred main(io__state::di, io__state::uo) is det.
|
|
|
|
:- func map(func(X) = Y, list(X)) = list(Y).
|
|
:- mode map(func(in) = out is det, in) = out is det.
|
|
:- mode map(func(in) = out is semidet, in) = out is semidet.
|
|
|
|
:- implementation.
|
|
|
|
map(_, []) = [].
|
|
map(F, [H0|T0]) = [apply(F, H0) | map(F, T0)].
|
|
|
|
main -->
|
|
{ L1 = [1,2,3] },
|
|
{ L2 = map((func(X::in) = (Y::out) is det :- Y = 2*X), L1) },
|
|
{ L3 = map((func(X2) = Y2 :- Y2 = 5*X2), L2) },
|
|
{ L = map(func(X3) = 10*X3, L3) },
|
|
list__foldl(io__write_int, L),
|
|
io__write_string("\n").
|
|
|