RosettaCodeData/Task/Array-length/Mercury/array-length.mercury

14 lines
240 B
Plaintext

:- module array_length.
:- interface.
:- import_module io.
:- pred main(io::di, io::uo) is det.
:- implementation.
:- import_module array, list.
main(!IO) :-
Array = array(["apples", "oranges"]),
io.write_int(size(Array), !IO).