From 84adefa331c4159d432d22840663c38f155cd4c1 Mon Sep 17 00:00:00 2001 From: Erlang/OTP Date: Fri, 20 Nov 2009 14:54:40 +0000 Subject: The R13B03 release. --- lib/stdlib/test/escript_SUITE_data/factorial_compile | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100755 lib/stdlib/test/escript_SUITE_data/factorial_compile (limited to 'lib/stdlib/test/escript_SUITE_data/factorial_compile') diff --git a/lib/stdlib/test/escript_SUITE_data/factorial_compile b/lib/stdlib/test/escript_SUITE_data/factorial_compile new file mode 100755 index 0000000000..c822808b90 --- /dev/null +++ b/lib/stdlib/test/escript_SUITE_data/factorial_compile @@ -0,0 +1,12 @@ +#!/usr/bin/env escript +-mode(compile). + +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). + -- cgit v1.2.3