File: factorial_compile

package info (click to toggle)
erlang 1%3A23.2.6%2Bdfsg-1%2Bdeb11u1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 199,804 kB
  • sloc: erlang: 1,509,787; xml: 412,313; ansic: 393,504; cpp: 51,923; makefile: 18,193; sh: 13,051; lisp: 9,681; java: 8,061; python: 5,195; perl: 4,322; asm: 3,586; pascal: 3,435; javascript: 595; sed: 72; php: 2
file content (12 lines) | stat: -rwxr-xr-x 187 bytes parent folder | download | duplicates (15) 
1
2
3
4
5
6
7
8
9
10
11
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).