The factorial's tail recursive 7月 07, 2007 Erlang: -module(test). -export([fac/1]). fac(N) -> fac(N,1). fac(0,A) -> A; fac(N,A) -> fac(N-1,N*A). -------------------------------- Haskell: module Fac where fac(n)=facit(n,1) facit(0,m) = m facit(n,m)=facit(n-1,n*m) 閱讀完整內容