diff options
| author | Erlang/OTP <[email protected]> | 2009-11-20 14:54:40 +0000 |
|---|---|---|
| committer | Erlang/OTP <[email protected]> | 2009-11-20 14:54:40 +0000 |
| commit | 84adefa331c4159d432d22840663c38f155cd4c1 (patch) | |
| tree | bff9a9c66adda4df2106dfd0e5c053ab182a12bd /lib/syntax_tools/examples/test.erl | |
| download | otp-84adefa331c4159d432d22840663c38f155cd4c1.tar.gz otp-84adefa331c4159d432d22840663c38f155cd4c1.tar.bz2 otp-84adefa331c4159d432d22840663c38f155cd4c1.zip | |
The R13B03 release.OTP_R13B03
Diffstat (limited to 'lib/syntax_tools/examples/test.erl')
| -rw-r--r-- | lib/syntax_tools/examples/test.erl | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/lib/syntax_tools/examples/test.erl b/lib/syntax_tools/examples/test.erl new file mode 100644 index 0000000000..087c49ed4c --- /dev/null +++ b/lib/syntax_tools/examples/test.erl @@ -0,0 +1,25 @@ +%% +%% This is a test file +%% + +-module(test). + +-export([nrev/1]). + +%% Just a naive reverse function in order +%% to get a code example with some comments. + +nrev([X | Xs]) -> + append(X, nrev(Xs)); % Quadratic behaviour +nrev([]) -> + %% The trivial case: + []. + + %% We need `append' as a subroutine: + +append(Y, [X | Xs]) -> + [X | append(Y, Xs)]; % Simple, innit? +append(Y, []) -> + [Y]. % Done. + +%% ---- end of file ---- |