mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-15 17:33:38 +00:00
a447cb44bb
Estimated hours taken: 1.0 Branches: main extras/quickcheck/qcheck.m: Fix qcheck to work with the current time structure that time__localtime returns. extras/quickcheck/Mmakefile: extras/quickcheck/test_qcheck.m: extras/quickcheck/nrev.m: Add a makefile and a simple testcase for qcheck.
20 lines
555 B
Mathematica
20 lines
555 B
Mathematica
%---------------------------------------------------------------------------%
|
|
% Copyright (C) 2001 The University of Melbourne.
|
|
% This file may only be copied under the terms of the GNU General
|
|
% Public License - see the file COPYING in the Mercury distribution.
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- module nrev.
|
|
|
|
:- interface.
|
|
:- import_module list.
|
|
|
|
:- func nrev(list(T)) = list(T).
|
|
:- mode nrev(in) = out is det.
|
|
|
|
:- implementation.
|
|
|
|
nrev([]) = [].
|
|
nrev([X|Xs]) = Ys :-
|
|
list__append(nrev(Xs), [X], Ys).
|