mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-18 02:43:40 +00:00
32 lines
660 B
Mathematica
32 lines
660 B
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- module intermod_dcg_bug2.
|
|
|
|
:- interface.
|
|
|
|
:- import_module io.
|
|
|
|
:- pred foo(io::di, io::uo) is det.
|
|
|
|
:- implementation.
|
|
|
|
:- import_module int.
|
|
:- import_module list.
|
|
|
|
:- pragma inline(foo/2).
|
|
|
|
foo -->
|
|
{ list.foldl(
|
|
(pred(_::in, di, uo) is det -->
|
|
=(Var0),
|
|
:=(Var0 + 1)
|
|
), [1, 2, 3], 0, Count) },
|
|
io.write_int(Count),
|
|
|
|
list.foldl(
|
|
(pred(X::in, di, uo) is det -->
|
|
io.write(X)
|
|
), [1, 2, 3]).
|