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/stdlib/test/escript_SUITE_data/factorial_compile_main | |
| download | otp-84adefa331c4159d432d22840663c38f155cd4c1.tar.gz otp-84adefa331c4159d432d22840663c38f155cd4c1.tar.bz2 otp-84adefa331c4159d432d22840663c38f155cd4c1.zip | |
The R13B03 release.OTP_R13B03
Diffstat (limited to 'lib/stdlib/test/escript_SUITE_data/factorial_compile_main')
| -rwxr-xr-x | lib/stdlib/test/escript_SUITE_data/factorial_compile_main | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/lib/stdlib/test/escript_SUITE_data/factorial_compile_main b/lib/stdlib/test/escript_SUITE_data/factorial_compile_main new file mode 100755 index 0000000000..a59bb105dc --- /dev/null +++ b/lib/stdlib/test/escript_SUITE_data/factorial_compile_main @@ -0,0 +1,13 @@ +#!/usr/bin/env escript +-mode(compile). +-export([main/1]). + +main([In]) -> + X = list_to_integer(In), + N = fac(X), + io:format("factorial ~w = ~w~n",[X, N]). + +fac(0) -> 1; +fac(N) -> + N * fac(N-1). + |