Re: [m-users.] Confused my det/multi error message, full disjunction of type in place.
Julien Fischer <[email protected]>
| Newsgroups | gmane.comp.lang.mercury.general |
|---|---|
| Message-ID | <[email protected]> |
Hi again,
On Sun, 4 Dec 2022, Sean Charles (emacstheviking) wrote:
A few other notes about this:
> Â Â Â 59 :- pred write_(fstate::in, fstate::out, fi::in, io::di, io::uo) is det.
> Â Â Â 60
> Â Â Â 61 write_(!S, nl, !IO) :-
> Â Â Â 62 Â Â io.nl(!IO),
> Â Â Â 63 Â Â !:S = !.S ^nl_written := yes.
That last line can be more concisely written as:
!S ^ nl_writtern := yes
> Â Â Â 64
> Â Â Â 65 write_(!S, brace_o, !IO) :-
> Â Â Â 66 Â Â write_(!S, s("{"), !IO),
> Â Â Â 67 Â Â !:S = !.S ^tab_size := !.S ^tab_size+1.
> Â Â Â 68 Â Â write_(!S, nl, !IO).
> Â Â Â 69
> Â Â Â 70 write_(!S, brace_c, !IO) :-
> Â Â Â 71 Â Â write_(!S, s("}"), !IO),
> Â Â Â 72 Â Â !:S = !.S ^tab_size := !.S ^tab_size-1.
> Â Â Â 73
> Â Â Â 74 write_(!S, s(Text), !IO) :-
> Â Â Â 75 Â Â io.print(Text, !IO).
> Â Â Â 76
> Â Â Â 77 write_(!S, blk(FIs), !IO) :-
> Â Â Â 78 Â Â P = (pred(FI::in, !.St::in, !:St::out, !.IO::di, !:IO::uo) is det :-
> Â Â Â 79 Â Â Â Â write_(!St, FI, !IO)
> Â Â Â 80 Â Â ),
> Â Â Â 81 Â Â list.foldl2(P, FIs, !S, !IO).
If you rearrange the arguments of write_/5 to be
:- pred write_(fi::in, fstate::in, fstate::out, io::di, io::uo) is det.
then the above lambda expression becomes unnecessary and you can just
call foldl/2 directly, e.g. list.foldl2(write_, FIs, !S, !IO).
(That said, you may have good reasons for using the ordering you did,
but note that all of the fold style predicates in the standard library
place their accumulator pairs at the end of the argument list.)
> Â Â Â 83 write_(!S, csv(FIs), !IO) :-
> Â Â Â 84 Â Â write_(!S, seq(s(", "), FIs), !IO).
> Â Â Â 85
> Â Â Â 86 write_(!S, ssv(FIs), !IO) :-
> Â Â Â 87 Â Â write_(!S, seq(s(" "), FIs), !IO).
> Â Â Â 88
> Â Â Â 89 write_(!_, seq(_, []), !IO).
> Â Â Â 90 write_(!S, seq(With, [ FI | FIs ]), !IO) :-
> Â Â Â 91 Â Â write_(!S, FI, !IO),
> Â Â Â 92 Â Â ( if list.is_empty(FIs) then
> Â Â Â 93 Â Â Â Â true
> Â Â Â 94 Â Â else
> Â Â Â 95 Â Â Â Â write_(!S, With, !IO),
> Â Â Â 96 Â Â Â Â write_(!S, seq(With, FIs), !IO)
> Â Â Â 97 Â Â ).
Why not just switch on FIs there?
Julien.
_______________________________________________
users mailing list
[email protected]
https://lists.mercurylang.org/listinfo/users