diff options
Diffstat (limited to 'lib/stdlib/test/escript_SUITE_data/factorial_epp')
-rwxr-xr-x | lib/stdlib/test/escript_SUITE_data/factorial_epp | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/lib/stdlib/test/escript_SUITE_data/factorial_epp b/lib/stdlib/test/escript_SUITE_data/factorial_epp new file mode 100755 index 0000000000..dbdf974985 --- /dev/null +++ b/lib/stdlib/test/escript_SUITE_data/factorial_epp @@ -0,0 +1,17 @@ +#!/usr/bin/env escript +%% -*- erlang -*- + +-module(factorial). +-export([main/1]). + +-define(PREFIX, ?MODULE_STRING). + +main([In]) -> + X = list_to_integer(In), + N = fac(X), + io:format("~s ~w = ~w~n",[?PREFIX, X, N]). + +fac(0) -> 1; +fac(N) -> + N * fac(N-1). + |