mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-12 12:26:29 +00:00
a79bae00e8
library/io.m:
Add predicates io.write_array/[56] which are are similar to
io.write_list but work on arrays and do _not_ require converting
the array into a list first.
library/array2d.m:
Add array2d.is_empty/1.
NEWS:
Announce the above additions.
tests/hard_coded/Mmakefile:
tests/hard_coded/write_array.{m,exp}:
Add a test for write_array.
tests/hard_coded/test_array2d.{m,exp}:
Extend this test to cover is_empty/1.
30 lines
743 B
Mathematica
30 lines
743 B
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- module write_array.
|
|
:- interface.
|
|
|
|
:- import_module io.
|
|
|
|
:- pred main(io::di, io::uo) is det.
|
|
|
|
:- implementation.
|
|
|
|
:- import_module array.
|
|
:- import_module list.
|
|
|
|
main(!IO) :-
|
|
list.foldl(run_test, [[], [1], [1, 2, 3]], !IO).
|
|
|
|
:- pred run_test(list(int)::in, io::di, io::uo) is det.
|
|
|
|
run_test(List, !IO) :-
|
|
Array = array.from_list(List),
|
|
io.write_string("Array: ", !IO),
|
|
io.write_array(Array, ", ", io.write_int, !IO),
|
|
io.nl(!IO),
|
|
io.write_string("List: ", !IO),
|
|
io.write_list(List, ", ", io.write_int, !IO),
|
|
io.nl(!IO).
|